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IDENTIFICATION 
PRODUCT CODE: AC-F927A-MC 

PRODUCT NAME: CZRMOAO RMO5/3/2 FCTNL TST 3 
DATE CREATED: APRIL 1980 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR : MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS pal TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURSHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL’S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
eae OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPORATION 
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1.0 INTRODUCTION 
1.1 ABSTRACT 


THE type td | SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 
WHICH (USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE 
RMO5S/3/2_ DISK SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE 
FOLLOWING PURPOSES: 


TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
OPERATIONGS” INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 


TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
ELECTRICAL INTERFACE; 


TO VERIFY THE FUNCTIONALITY OF THE RMO5/3/2 SUBSYSTEM, INCLUDING 
THE MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 


THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD 


NORMALLY BE RUN IN 
ye STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING 


HANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE. 
READ AND WRITE CHECK OPERATIONS USING DATA. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO5/3/2 DISK SUBSYSTEM WHICH 
pany AL OF THE RH MASSBUS CONTROLLER, me ye /3/2 MASSBUS ADAP 

THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PACK IS REQUIRED 
FOR TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 
THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED 


TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO5S/3/2 SUBSYSTEM 
FUNCTIONAL TEST: 


PDP-11 PROCESSOR 
16K MEMORY 


KW11-L_ OR KW11-P CLOCK 
PR etre stats DEVICE 


TERMI 
RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMO2'S) 
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2.2 MEDIA REQUIREMENTS 


EACH UNIT BEING TESTED ont BE LOADED WITH A_ SCRATCH DISK PACK 
61 BEFORE TESTING BEGINS ON UNIT. THE DISK MUST BE FORMATTED AND 


62 CONTAIN A READABLE COPY OF Me MFG AND USR BAD SECTOR FILES. 
64 
66 2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
68 
69 RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2 
a RMO5/3/2 FUNCTIONAL TEST, PART 1 & 2 
73 
74 
ie} 3.0 OPERATING PROCEDURE 
ve 3.1 LOADING 
3 . THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 
81 -PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
82 .XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 
84 
85 
86 3.2 SWITCH OPTIONS 
ag THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
89 OF THE PROGRAM. 
91 SW15-HALT ON ERROR 
92 SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
93 SW13. “INHIBIT ERROR TYPEQUTS 
9% SW12 UNUSED 
95 Sw11 INHIBIT TEST ITERATIONS 
36 SwW10 BELL ON ERR 
97 SwO9 LOOP ON ERR on 
98 SwO8 § LOOP ON TEST IN SWO7-00 
100 THE LOW ORDER 8 SWITCHES (SWO7-SWOO), ARE USED IN CONJUNCTION WITH 
101 Sw08 WOs to SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
103 
3.3 STARTING 


THE PROGRAM STARTS AT LOCATION 200, WHICH PROVIDES WORST CASE 

TEST CONDITIONS IF RUNNING IN AN AUTOMATIC ENVIRONMENT. IF RUNNING IN 

TAND~ALONE ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW 
THE OPERATOR TO CONTROL TEST CONDITIONS. 


wR es os os OS tS 
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SEQ 0005 
3.4 HALTING 
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 
NOTE: IF THE PROGRAM IS_ HALTED BY ANY OTHER MEANS, BAD HEADER 


INFORMATION MAY BE LEFT ON THE DISK PACK. THiS OF COURSE 
ee ON WHICH TEST IS BEING PERFORMED AT THE TIME OF THE 


3.5 RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200. 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. ALSO, A WARNING MESSAGE IS_ TYPED, 
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM IS 
HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 
OCCUR IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D. AND WARNING 
MESSAGE. (SEE SECTION 4.1) 


THE FIRST QUESTION TYPED a IS: "TYPE HELP TEXT (Y/N) ?°', 
IF THE OPERATOR RESPONDS WITH A ‘'Y’', THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. 


NOTE: THE FIRST QUESTION IS_ ONLY ASKED fd THE INITIAL PROGRAM 
START AND NOT ON SUBSEQUENT START-UP'S 


THE SECOND QUESTION TYPED IS, ‘‘CHANGE ADDRESSES (Y/N) ?°'. IF THE 
RH/RM IS_ NON STANDARD, T OPERAT 


AR OR SHOULD 
RESPOND WITH A ‘'Y'', THEN ANSWER SUBSEQUENT QUESTIONS TO SPECIFY 
THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY. IF THE 
OPERATOR RESPONSE I$ A "N'', THE PROGRAM SKIPS TO THE THIRD QUESTION. 


THE THIRD 77) ie TYPED IS, ‘TYPE ‘‘A'’ TO TEST ALL DRIVES, 
TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH A _CARRIAGE RE TURN. 
te *DRIVE(S):* IS TYPED AND WAITS at THE OPERATOR TO TYPE AN ‘A’, 


NOTE: THE LONG VERSION OF THE THIRD QUESTION IS ONLY TYPED ON 
THE INITIAL PROGRAM START. ON ALL SUBSEQUENT STARTS, ONLY 
THE "DRIVE(S):* PROMPT IS TYPED. 


Dao 
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IF THE PROGRAM IS on ia THE FIRST QUESTION TYPED IS, ‘USE 
SAME DEVICES (Y/N) ?°'. IF THE OPERATOR TYPES ‘Y'', THE TEST IS 
RESTARTED USING THE SAME DEVICES AS THE LAST TIME, OTHERWISE, THE TEST 
alg THE DIALOGUE AS IF THE PROGRAM WERE STARTED FOR THE FIRST 


4.3 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS_ EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.4 PERFORMANCE REPORT 


NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
iy BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT WHICH GIVE A BRIEF, 
YET COMPREHENSIVE DESCRIPTION OF THE E THE ERROR MESSAGE 1S 
NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA 
HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING EXPECTED AND 
ACTUAL TEST RESULTS. 


5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 

THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-11 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 


SEQ 0006 


Dao 
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* pet tA, sw s FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 

LOGIC IN THE RMO5/3/2 ADAPTER BUT IS EXECUTABLE ON 

RMOS/3/2° "SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RMO5/3/2 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RMO5/3/2 
SUSBYSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASSBUS CONTROLLER. 


5.5 ACT11, APT11 COMPATIBILITY 
THE RM05/3/2 a ae FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
AND APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM 


WILL EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 
VERIFY MODE. 


5.6 XXDP COMPATIBILITY 
we oe ey SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 


N MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE HE RMOS/3/2" 15 THE XXDP LOADING DEVICE. 


5.7 OPERATING SYSTEM COMPATIBILITY 
THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


6.0 TEST DESCRIPTION 


CONTROLLER ACCESS TEST 
PURPOSE : 


TO VERIFY THAT THE UNIBUS soenees OF THE SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION $BASE 


SEQ 0007 
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PROCEDURE : 


THE TEST eS yl Mb ACCESS ALL MASSBUS_ CONTROLLER REGISTERS 
USING THE S$BASE DRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 


IF THE TEST aa AND THE PROGRAM IS RUNNING IN A_ STAND 
ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE S$BASE 
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


DEVICE AVAILABLE TEST 


PURPOSE : 


TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING, 
AND IS NOT LOCKED OR PROGRAMMED TO THE ALTERNATE PORT. 


PROCEDURE : 


THIS TEST SELECTS THE DEVICE AND READS CONTROL STATUS 
REGISTERS 1 AND 2 TO VERIFY THAT THE SELECTED DEVICE IS AVAILABLE 
FOR TESTING, AS_INDICATED BY DVA STATUS, BIT 11 OF RMCS1 AND NED 
Seg BIT 12 OF RMCS2. THE RESULTS OF THE TEST CAN VARY AS 


-NONEXISTANT DEVICE = THE DEVICE IS NONEXISTENT OR IS LOCKED 
ON THE ALTERNATE PORT AND IS THEREFORE NOT AVAILABLE FOR TESTING; 


~DEVICE NOT AVAILABLE - THE DEVICE EXISTS BUT IS SEIZED BY 
THE ALTERNATE PORT AND IS NOT AVAILABLE FOR TESTING; 


-BUS TIMEOUT = THE MASSBUS CONTROLLER FAILED TO DETECT A 
NONEXISTENT DEVICE; 


-DEVICE AVAILABLE - THE DEVICE IS AVAILABLE FOR TESTING. 


THE PROGRAM JUMPS THE SUBPASS HANDLER WHICH SELECTS THE 
NEXT DRIVE TO BE TESTED. TF THE DEVICE IS NOT AVAILABLE. 


DRIVE TYPE TEST 


PURPOSE : 


TO VERIFY THAT THE UNIT UNDER TEST IS AN RMOS, RMO3 OR RMO2 
SINGLE PORT OR 
DUAL PORT SUBSYSTEM. 


SEQ 0008 
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PROCEDURE : 


THIS TEST READS THE DRIVE TYPE REGISTER, RMDT, OF THE 
cm” a DEVICE AND VERIFIES THAT THE DEVICE IS A SINGLE PORT OR 

PORT RMO5 4h. UBSYSTEM. IF on SELECTED DEVICE IS NOT AN 
RMOS /3/2, THE PROG JUMPS TO THE SUBPASS HANDLER WHICH WILL 
SELECT THE NEXT DEVICE FOR TESTING. 


WRITE/READ DATA TESTS 


PURPOSE : 


TO. TEST WRITE DATA ne READ DATA FUNCTIONALITY OF THE 
RMO5/3/2_ SUBSYSTEM USING A SET OF VARIABLES WHICH INCLUDE WORD 
COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR CONDITIONS. 


PROCEDURE : 


ALTHOUGH EACH TEST ener” A DIFFERENT oy THE 
GENERAL PROCEDURE OF EACH TEST IS on THE SAME. THE DRIVE IS 
INITIALIZED AND RECALIBRATED IF ‘PIP*’ "SKI"' ARE ACTIVE SO THAT 
THERE ARE NO ERRORS WHEN A TEST BEGINS. THEN, THE TEST FORMATS 
THE SECTOR BEING USED, WHICH MAY VARY FROM THE PROGRAM LISTING, 
BECAUSE SECTORS ARE SUBSTITUTED DURING RUN TIME IF THE SELECTED 
SECTOR IS LISTED IN THE BAD E OF THE LAST TRACK. 

FOLLOWING THAT, THE TEST PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR 
THE CONDITIONS OF THE TEST. REGISTERS ARE PRESET AND THE WRITE 


DATA__ COMMAND IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE, 
a Bd At pace SUBSYSTEM STATUS AND CHECKS FOR. PRIMARY 


E WHICH LUDE OTHER STATUS CHECKS. IF THERE ARE NO 
PRIMARY ERRORS, THE TEST VERIFIES THE RESULTS OF THE WRIT 
CHECKS FOR SEC S.__LOOP ADDRESSES ARE 


I 
IN_ ORDER TO SHORTEN EXECUTION TIMES AND ENHANCE SCOPING LOOPS, 
THEN THE PROGRAM EXECUTES THE READ DATA PORTION OF THE TEST, 
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 


NOTE 
sonata THE SECTOR USED DURING A_TEST MAY DIFFER FROM THE 
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR IF 
THE ONE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE OF THE LAST 
oe : UNLESS SPECIFIED OTHERWISE, ALL TESTS ARE IN 16 BIT 


WRITE, READ ZEROS TEST 
THE TEST WRITES AND READS AN ALL ZEROS DATA FIELD, CAUSING 


SEQ 0009 
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SEQ 0010 


THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


WRITE, WRITE CHECK ZEROS TEST 


THE TEST WRITES AND WRITE CHECKS AN ALL ZEROS DATA FIELD, 
VERIFYING THAT THERE ARE NO ERRORS. 


WRITE, WRITE CHECK ZEROS W/ WCE ERROR TEST 
THE TEST WRITES AN ALL ZEROS DATA FIELD, THEN COMPLEMENTS 
eae BIT IN THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK 


OMMAND IS EXECUTED AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 


WRITE, READ ONES TEST 


THE TEST WRITES AND READS AN ALL ONES DATA FIELD, CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 


WRITE, WRITE CHECK ONES TEST 
THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD. 


WRITE, WRITE CHECK ONES W/ WCE ERROR TEST 
THE TEST WRITES AN ALL ONES DATA FIELD, THEN PERFORMS A 
WRITE a a DATA COMMAND AFTER COMPLEMENTING EACH BIT IN THE LAST 


WORD THE WRITE BUFFER. THE TEST VERIFIES THAT THE CORRECT 
URITE "CHECK ERROR IS DETECTED. 


WRITE, WRITE CHECK MULTIPLE SECTORS TEST 
THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 


Se 
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SEQ 0011 
457 atta DURING DATA TRANSFER. _ THE WRITE DATA COMMAND FOLLOWS, 
458 WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE SAME SECTORS 
azh ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. 
461 
462 
463 
464 
rer} WRITE, READ WITH IMPLIED SEEK TEST 
467 THIS TEST ore TO THE LAST CYLINDER PRIOR TO WRITING DATA 
468 ON CYLINDER 0, K 0, SECTOR 0. THE EXPLICIT SEEK INSURES THAT 
469 THERE WILL BE maxim HEAD MOTION DURING THE IMPLIED SEEK OF THE 
470 WRITE COMMAND. THE SAME OPERATION, INCLUDING THE EXPLICIT SEEK 
471 IS REPEATED FOR READ DATA. 
472 
473 
474 
“7% 
piLe WRITE, WRITE CHECK WITH MEAD SWITCHING TEST 
479 THE TEST tty TO CYLINDER 0 TO anh THERE IS NO HEAD 
480 MOTION DURING DAT 3s sccrox’ THE WRITE DATA COMMAND STARTS WITH 
481 CYLINDER 0, TRACK 0, SECTOR 31. THE WORD COUNT IS EQUAL TO 
482 MULTIPLE SECTORS Witc CAUSES THE SUBSYSTEM TO SWITCH FROM TRACK 
483 0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN. 
484 THE SAME SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND, 
i USING THE SAME WORD COUNT AND STARTING SECTOR. 
487 
488 
489 
490 
433 WRITE, WRITE CHECK WITH MID-TRANSFER SEEK TEST 
493 THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER 0, 
494 LAST_ TRACK AND SECTOR 31., CAUSING A MID~TRANSFER SEEK AFTER THE 
495 FIRST SECTOR IS WRITTEN. THE SAME SECTORS ARE VERIFIED WITH A 
pe WRITE CHECK DATA COMMAND. 
498 
499 
500 
501 
206 WRITE, READ W/ HCE ERROR TEST 
504 A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN THE 
505 TEST WRITES AND READS DATA FROM THE SECTOR AND VERIFIES THAT THE 
506 CORRECT ERROR IS DETECTED. EACH BIT POSITION OF BOTH HEADER 
206 WORDS IS TESTED IN THIS MANNER. 
509 
510 
511 
512 
513 WRITE, READ W/ HCI TEST 





oO 
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A_SECTOR iS FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN 
AND READ WITH HEADER COMPARE INHIBITED. THE TEST VERIFIES THAT 
NO ERROR IS DETECTED. 


WRITE, READ W/ IVC ERROR TEST 


VOLUME VALID IS RESET BY SETTING a+ By is tn DIAGNOSTIC 
MODE. THE TEST THEN EXECUTES A WRITE DATA COMMAND AND VERIFIES 
Loeerd oon COMMAND STATUS SETS. THE TEST 1S REPEATED FOR READ 


WRITE, READ W/ ABORT TEST 
THE gal SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES A 


WRITE DATA COMMAND VERIFYING THAT 'PIP’' REMAINS INACTIVE. THE 
SAME PROCEDURE IS USED FOR READ DATA COMMAND. 


WRITE, READ EACH CURRENT LEVEL TEST 


THE TEST WRITES AND READS ON EACH OF THE FOLLOWING CYLINDERS 
IN ORDER TO WRITE AT EACH POSSIBLE CURRENT THRESHOLD. 


CYLINDER 0 110 MA 
a 128 104 MA 
= 256 97 MA 
ni 384 91 MA 
wt 512 84 MA 
a 640 77 MA 
a 768 70 MA 


WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING TEST 
THE TEST WRITES 2 SECTORS STARTING WITH THE LAST SECTOR OF 


SEQ 0012 | 


com 
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CYLINDER 383. THE FIRST SECTOR IS WRITTEN AT ONE CURRENT yo 
AND THE SECOND SECTOR IS WRITTEN AT ANOTHER CURRENT LEVEL. BOTH 
SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND, 


WRITE, READ EARLY PEAK SHIFT TEST 


THIS TEST WRITES AND READS A_ SINGLE 13 ii USING A DATA 
PATTERN DESIGNED TO INTRODUCE EARLY PEAK SHIFT 


WRITE, READ MIXED PEAK SHIFT TEST 


THIS TEST WRITES AND READS A_ SINGLE 73 he USING A DATA 
PATTERN DESIGNED TO INTRODUCE MIXED PEAK SHIFT 


WRITE, READ EACH TRACK TEST 


THE TEST WRITES AND READS WITH EACH HEAD USING A MIX OF 
EARLY, NORMAL AND LATE WRITE GATES. 


READ, WRITES CHECK MULTIPLE SECTORS IN OFFSET MODE TEST 


THE TEST EXECUTES READ DATA AND WRITE CHECK DATA COMMANDS IN 
OFFSET MODE IN BOTH OFFSET DIRECTIONS WITH THE TRANSFER SIZE OF 
TWO SECTORS AT A TIM. 


SEQ 0013 


com 
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;PROGRAM REVISION #001 

~TITLE CZRMOAO RMO5/3/2 FCTNL TST 3 
;*COPYRIGHT (C) 1980 

;*DIGITAL EQUIPMENT CORP. 

;*MAYNARD, MASS. 01754 

** 

; *PROGRAM BY MIKE LEAVITT 


SeTHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
s *PACKAGE (MAINDEC=-11=DZQAC=C4), 1980. 


*SBTTL OPERATIONAL SWITCH SETTINGS 


** 

3* SWITCH USE 

** oa<eene wwe eomoemomoomomomoees coe 
:* 15 HALT ON ERROR 

s@ 14 LOOP ON TEST 

3* 13 INHIBIT ERROR TYPEOUTS 
:* 12 UNUSED 

:* 11 INHIBIT Ln ces 

7* 10 BELL ON ERR 

;* 9 LOOP ON ERROR 

3* 8 LOOP ON TEST IN SWR<7:0> 
:* 7 ™N128 

:* 6 TN64 

;* 5 T™N32 

:* 4 ™N16 

:* 3 TNS 

3* 2 TN4 

;* 1 TN2 

3* 0 ™N1 


-SBTTL BASIC DEF IN: TIONS 
z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *«* 
STACK 1100 


ERROR = EMT 3:BASIC DEFINITION OF ERROR CALL 
SCOPE = IOT : BASIC DEFINITION OF SCOPE CALL 
aa DEF INITIONS 
= 11 :;CODE FOR HORIZONTAL TAB 
tF = 12 ;;CODE FOR LINE FEED 
CR = 15 +2 CODE FOR CARRIAGE RETURN 
CRLF = 200 CODE FOR CARRIAGE RETURN-LINE FEED 
Oe ee = 177776 7;PROCESSOR STATUS WORD 
STKLMT = 177774 3:STACK LIMIT REGISTER 
PIRQ = 177772 3 PROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 2 HARDWARE SWITCH REGISTER 
DDISP = 177570 ; sHARDWARE DISPLAY REGISTER 
2 *GENERAL PURPOSE REGISTER DEF INITIONS 
RO = 20 ae RAL REGISTER 
R1 = 21 ::GENERAL REGISTER 
R = %2 : GENERAL REGISTER 
R = %3 ::GENERAL REGISTER 
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RS = %4 3;GENERAL REGISTER 
R5 = %5 3;GENERAL REGISTER 
R6 = %6 3;GENERAL REGISTER 
R7 = 77 3:GENERAL REGISTER 
SP = %6 7:STACK POINTER 
PC = 77 3;PROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 

PRO = 0 7zPRIORITY LEVEL 
PR1 = 40 :zPRIORITY LEVEL 
PR2 = 100 szPRIORITY LEVEL 
PR3 = 140 3s PRIORITY LEVEL 
PR4 = 200 7zPRIORITY LEVEL 
PRS = 240 7zPRIORITY LEVEL 
PR6 = 300 7zPRIORITY LEVEL 
PR7 = 340 szPRIORITY LEVEL 
3*""SWITCH REGISTER'' SWITCH DEFINITIONS 
Sw15 = 100000 

Sw14 = 40000 

$w13 = 

Swi2 = 10000 

SwW11 = 4000 

Sw10 = 2000 

SwO9 = 1000 

Sw08s = 400 

Sw07 = 200 

Sw06 = 100 

Sw05 = 40 

SWO04 = 20 

Sw03 = 10 

Sw02 =4 

Sw01 =2 
Swoo = 1 

SwW9=Sw09 

SW8=SWw08 

he aes 
immo 54 
SW3=Sw03 
SW2=SW02 
SW1=Sw01 
SwO=S 

;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15 = 100000 
BIT14 = 40000 
BIT13 = 20000 
BIT12 = 10000 
BIT11 = 4000 
BIT10 = 2000 
BITO9 = 1000 
BIT08 = 400 
BITO7 = 200 

IT = 100 
BITOS = 40 


SEQ 0015 


D2 
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BASIC DEFINITIONS 


000020 BIT04 = 20 
000010 BITO3 = 10 
000004 BITO2 =4 
000002 BITO1 =2 
000001 BIT0O = 1 
901000 BIT9=B1T09 
00 B1T8=81708 
000 BIT7=81107 
000700 BIT6=B1T06 
000040 BIT5=B1T05 
000020 BIT4=B1T04 
000010 BIT3=B1T03 
000004 BIT2=B1T02 
000002 BIT1=B81T01 
000001 B1T0=81T00 | 
:*BASIC “cpu TRAP VECTOR ADDRESSES 
ERRVEC = OUT AND OTHER ERRORS | 
000019 RESVEC = 10 3 RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC = 14 :"T'' BIT 
000014 TRIVEC = 14 t: TRACE TRAP 
000014 BPTVEC = 14 ::BREAKPOINT TRAP (BPT) 
000020 IOTVEC = 20 : INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 VEC = 24 [POWER FAIL 
000030 EMTVEC = 30 ;sEMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVEC = 34 2" 'TRAP’' TRAP 
000060 TKVEC = 60 3zTTY KEYBOARD VECTOR 
000064 TPVEC = 64 ::TTY PRINTER VECTOR 
a 000240 PIRQVEC = 240 77PROGRAM INTERRUPT REQUEST VECTOR 
| 
493 -SBTTL RM REGISTER BIT DEFINITIONS | 
<4 :*RMCS1 CONTROL STATUS REGISTER 
497 004000 DVA = BIT11 ;DEVICE AVAILABLE-READ ONLY 
498 000040 F4 = BITOS sFUNCTION CODE 
499 000020 F3 = BITO4 sFUNCTION CODE 
500 000010 F2 = BITO3 ZFUNCTION CODE 
501 000004 F1 = BITO2 sFUNCTION CODE 
502 000002 FO = BITO1 [FUNCTION CODE 
503 000001 GO = BITOO 760 BIT 
304 000077 FNCMSK = 000077 [FUNCTION CODE MASK 
506 ;FUNCTION CODES (BITS 01-05 OF RMCS1) 
507 000000 NOP = 000000 ;NOP COMMAND 
508 000002 ILFO2 = 000002 7 ILLEGAL COMMAND 
509 000004 SEEK = 000004 7SEEK COMMAND 
510 000006 RECAL = 000006 ;RECALIBRATE COMMAND 
511 000010 DRVCLR = 000010 ZDRIVE CLEAR COMMAND 
512 000012 RLEASE = 000012 sRELEASE COMMAND 
513 000014 OFFSET = 000014 ZOFFSET COMMAND 
514 000016 RTC = 000016 [RETURN TO CENTERLINE COMMAND 
515 000020 RIP = 000020 :READ IN PRESET COMMAND 
516 000022 PAKACK = 000022 jPACK ACKNOWLEDGE COMMAND 
517 000022 PACACK = PAKACK 
518 000024 ILF24 = 000024 ; ILLEGAL COMMAND 
519 000026 ILF26 = 000026 ZILLEGAL COMMAND 
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SEARCH = aii 
ILF3Q = 000030 
ILF32 = 000032 
ILF34 = 000034 
ILF36 == 000036 
ILF4Q == 000040 
ILF42 == 000042 
ILF44 == 000044 
ILF46 == 000046 
wCD = 000050 
WwCH = 000052 
ILF54 = 000054 
ILF56 == 000056 
wD = 000060 
WH = 000062 
ILF64 = 000064 
ILF66 = 000066 
RD = 000070 
RH = 000072 
ILF74 == 000074 
ILF76 = 000076 


:*RMDA DISK ADDRESS REGISTER 
3 TRACK ADDRESS DEFINITIONS 
6 BIT12 


TAI = 

TA8 = BIT11 
TAS = B1T10 
TA2 = BITO9 
TAl = BITO8 
SECTOR ADDRESS DEFINITIONS 
SA16 = BIT04 
SA8 = BITO3 
SA4 = BITO2 
SA2 = BITO1 
SA1 = B1T00 


; TRACK & SECTOR MASKS 
TADMSK 177400 


:*RMDS DRIVE STATUS REGISTER 
LBT = 


;*RMER1 ERROR REGISTER #1 


: ILLEGAL COMMAND 

sWRITE CHECK DATA COMMAND 

WRITE CHECK HEADER AND DATA 
LEGAL COMMAND 


COMMAND 
WRITE HEADER AND DATA COMMAND 
COMMAND 


COMMAND 
READ HEADER AND DATA COMMAND 
ILLEGAL COMMAND 
ILLEGAL COMMAND 


: TRACK ADDRESS 16. 


: TRACK ADDRESS 


4 orth ADDRESS 


SECTOR ADDRESS 1 


; TRACK ADDRESS MASK 
SECTOR ADDRESS MASK 


sATTENTION ACTIVE 

: COMPOSITE ERROR 

;POSI TIONING IN PROGRESS 
DIUM ON LINE 


SWRITE L OCK 
;LAST BLOCK TRANSF ERRED 
; PROGRAMMABLE 


‘DRIVE PRESENT 
: DRIVE READY 


VOLUME VALID 
sOFFSET MODE ACTIVE 


SEQ 0017 


mao 
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DCK = BIT15 ;DATA_CHECK ERROR 

UNS = BIT14 :DRIVE_ UNSAFE 

OPI = BIT13 OPERATION INCOMPLETE 
DTE = BIT12 DRIVE TIMING ERROR 

WLE = BIT11 WRITE LOCK ERROR 

IAE = BIT10 INVALID ADDRESS ERROR 
AOE = BITO9 sADDRESS OVERFLOW ERROR 
HCRC = BITO8 sHEADER CRC ERROR 

HCE = BITO7 sHEADER COMPARE ERROR 
ECH = BIT06 sECC_* HARD’ ERROR 

WCF = BITO5 WRITE CLOCK FAILURE 
FER = BITO4 shepe J ERROR 

PAR = BITO3 PARITY ERROR 

RMR = BITO2 ;REGISTER MODIFICATION REFUSED 
ILR = B1T01 ILLEGAL REGISTER 

ILF = B1T00 ILLEGAL FUNCTION 
NDTMSK = DCK!DTE!WLE!AOE!HCRC! ICE! ECH!WCF FER 


ND TMSK** IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA 
;COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 


:*RMAS ATTENTION SUMMARY REGISTER 


ATNMSK = 377 MASK FOR ATTENTION BITS 
2*RMLA LOOK AHEAD REGISTER 

SC4 = BIT10 SECTOR COUNT = 16 

SC3 = BITO9 SECTOR COUNT = 8 

SC2 = BITO8 SECTOR COUNT = 4 

SC1 = BITO7 SECTOR COUNT = 2 

sco = BIT06 SECTOR COUNT = 1 


g 
g 
S 


SECTOR COUNT MASK 
3 *RMMR1 MAINTENANCE REGISTER #1 
;WRITE ONLY BITS 


DBCK = BIT15 : DEBUG CLOCK 
DBEN = BIT14 ;DEBUG CLOCK ENABLE 
DEBL = BIT13 [DIAGNOSTIC ve OF BLOCK 
DTO = BIT12 ;DIAGNOSTIC TIMEOUT 
MCLK = BIT11 :MAINTENANCE CLOCK 
MRD = BIT10 SREAD DAT. 
MUR = BITO9 SUNIT R 
MOC = BITOS8 70N CYLINDER 
MSER = BITO7 7 SEEK ERR 
MDF = BITO6 ;DRIVE FAULT 
MS = BITOS SEC 
MwP = BITO3 sWRITE PROTECT 
MI = BITO2 ; INDEX PULS 
MSC = BITO1 sSECTOR COMPARE 
DMD = BITOG : DIAGNOSTIC MODE 
;READ ONLY BITS 

= BIT15 OCCUPIED 


SEQ 0018 


ma 
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RG = BIT14 
EBL = BIT13 
REX = BITI2 
ESRC = BIT11 
PLFS = BIT10 
ECRC = BITO9 
PDA = BITO8 
PHA = B1T07 
CONT = BITO6 
WC = BIT05 
EECC = BIT04 
MwD = BIT03 
LS = BITO2 
LST = BITO1 
DMD = BIT00 
:*RMDT DRIVE TYPE REGISTER 
NSA = BIT15 
TAP = BIT14 
MOH = BIT13 
DRQ = BIT11 
SNGPRT = 020024 
DULPRT = 024024 
:*RMOF OFFSET REGISTER 
FMT16 = BITI2 
ECI = BIT11 
HCI = B1T10 
OF D = BIT07 


SEQ 0019 


;RUN AND GO 
END OF BLOCK 


= WORD CLOCK 
ENABLE ECC OUT 
;WRITE DATA BIT 
LAST SECTOR 


LAST SECTOR AND TRACK 
DIAGNOSTIC MODE 


NOT SECTOR ADDRESSED = 0 
TAPE DRIVE = 0 


;MOVING HEAD = 1 
[DRIVE REQUEST REQUIRED 


SINGLE PORT DRIVE TYPE (RMO2) 
DUAL PORT DRIVE TYPE (RMOZ) 


:16 BIT WORD FORMAT 
ECC INHIBIT 

HEADER COMPARE INHIBIT 
OFFSET FORWARD 


:*RMDC DESIRED CYLINDER ADDRESS REGISTER 


CYLMSK = 001777 
2 *RMMR2 MAINTENANCE REGISTER #2 
os ad ONLY one 


pececdecdoctestvclestecloctostectesdos] 
bt bt a ae be bt bs Ben bs be be De 


sMASK FOR CYLINDER ADDRESS 


PORT A REQUEST 


OL 

COMMAND SEQUENCE TEST BIT 
SCONTROL OR CYLIND ye TAG 

: CONT ROL OR HEAD T 


ma 
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679 





ERROR REGISTER 2 


RM REGISTER INDEX VALUES 


77 


:MAINTENAN 
ZDRIVE TYPE REGISTER 
:SERIAL NUMBER REG 


H 2 
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sBAD SECTOR ERROR 

SEEK INCOMPLETE 

OPERATOR PLUG ERROR 

: INVALID COMMAND ERROR 

;LOSS OF SYSTEM CLOCK 

LOSS OF BIT CLOCK 
ICE CHECK 


DATA PARITY ERROR 


MANUFACTURING DETECTED SECTOR ERROR 
USER DETECTED SECTOR ERROR 


+ CONTROL STATUS REGISTER #1 


REGISTER 


ADDRESS 
:DRIVE Leth wie 


REGISTER 
; DESIRED preievee REGISTER 
“MAINTENANCE Ty he #2 
ERROR REGISTER # 
SECC POSITION wreltten 


ECC PATTERN REGISTER 
: ILLEGAL REGISTER 50 
; ILLEGAL REGIST 


REGISTER 76 


3MASK FOR REGISTER INDEX NUMBER 


RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #1 

SPECIAL CONDITION-READ ONLY 

; TRANSFER ERROR 

;MASSBUS ie. BUS PARITY ERROR-READ ONLY 
:PORT B SELECT 


ma 
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sADDRESS EXTENSION 
: ADDRESS EXTENSION 


;RE ONLY 
: INTERRUPT ENABLE 


RH CONTROL STATUS REGISTER #2 


:DATA_LATE=READ ONLY 
WRITE CHECK ERROR-READ ONLY 
: UNI ARITY ERR 


BUS P, OR 
:NONEXISTANT DRIVE-READ ONLY 
sNONEXISTANT MEMORY=READ ONLY 
; PROGRAM ERRORCREAD ONL Y 
petty TRANSFER 
MASSBUS DATA ny aay ERROR-READ ONLY 


PARITY TES 
:UNIBUS ADDRESS INCREMENT INHIBIT 
sUNIT SELECT 
UNIT SELECT 
UNIT SELECT 


UNIT SELECT MASK 


RH70 CONTROL STATUS REGISTER #3 


sADDRESS PARITY ERROR 


ERRUP 
ZINVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
: INVERT PARITY CHECK 


RH11/RH70 CONTROLLER REGISTER INDEX VALUES 


Al7 = BITO9 
Al6 = BITO8 
RDY = BITO7 
IE = BITO6 
s*RMCS2 
DLT = BIT15 
WCE = BIT14 
UPE = BIT13 
NED = BIT12 
NEM = BIT11 
PGE = BIT10 
MXF = BITO9 
MDPE = BITO8 
OR = BITO7 
IR = BIT 
CLR = BITOS 
PAT = BITO4 
BAI = BITO3 
U2 = BITO2 
U1 = BITO1 
ud = BITOO 
sUNIT SELECT MASK 
UNTMSK = 7 
7 *RMCS3 
APE = BIT15 
DPEHI = BIT14 
DPELO = BIT13 
WCEH] = BIT12 
WCELO = BIT11 
L = BIT10 
E = BITO6 
IPCK3) = = BITO3 
IPCK2 = BITO2 
IPCK1 = BITO1 
IPCKO = BITOO 
-SBTTL 
RMCS1 = 00 
Cc = 02 
= 04 
RMCS2 = 10 
= 22 
= 50 
RMCS35 = 52 
ABASE = 176700 
AVECT1 = 120254 
-SBTTL TRAP CATCHER 


CONTROL, STATUS REGISTER #1 
D T REGISTER 


[WORD COUN 
BUS ADDRESS REGISTER 
‘ATA TROL Ble REGISTER #2 


BUS ADDRESS EXTENSION 
CONTROL, STATUS REGISTER #3 


;UNIBUS ADDRESS 
:UNIBUS VECTOR ADDRESS AND PRIORITY 


SEQ 0021 


NR Re ee ae 





TRAP C 


000174 
000176 


000046 
000052 


000024 
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=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A "’ -+2,HALT'' 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; aan oe ae CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


D1SPREG: YOR 0 


WREG: 
.SBTTL 


-SBTTL 


° 3:SOFTWARE DISPLAY REGISTER 
-WORD 0 :SOFTWARE SWITCH REGISTER 


STARTING ADDRESS(ES) 
JMP @ASTART 
ACT11 HOOKS 


SAAR 


: HOOKS REQUIRED BY ACT11 


.=1100 
»SBTTL 


SyPC=. SAVE PC 

SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD 0 ::2)SET LOC. 332 TO ZERO 

 =$SVPC +: RESTORE 


APT PARAMETER BLOCK 


SERRA EEERREEREAEREREREERERERRREEEREREREREREKEREEE 


:SE7 LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FARRAR AKERAEEAAEEREREEEEAAEEEEEEEREEREERREREREREEEREERERKEREKEE 


- $X=. +3 SAVE CURRENT LOCATION 

2=24 2 SET oe FAIL TO POINT TO START OF PROGRAM 
200 33FOR AP T START UP 

-=44 POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ::POINT TO APT HEADER BLOCK 


-=.$X  ;;RESET LOCATION COUNTER 


SEAR AREREEREEREEERAEEEEEREEEAEREAEREREREEEKREREREREREEERERRREEE 


:SeTUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


SAPTHD: 
SHIBTS: 
SMBADR: 
STSTM: 


SPASTM: 
SUNITM: 


TAGADR=. 


-WORD 0 3; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
«WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
«WORD 1 2;RUN TIM OF LONGEST TEST 

- WORD :2:RUN TIME IN SECS. OF 15S 

- WOR sADDITI RUN TIME (SE 

«WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


3; JUMP TO STARTING ADDRESS OF PROGRAM 


T PASS ON 1 UNIT (QUICK VERIFY) 
CS) OF A PASS FOR EACH ADDED UNIT 


SEQ 0022 


ma 
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aed ant and end 
NOS SS 


oe BS SS SS Se es Ss Ss Ss ss GS 


ee ee ee el ee ee ee ed ed ed ed ed nd = od 


ssssssssssesssssssssss 
SRAVVSSRRSRRVIBSRSS HEISE RVD 


BBBs 


Monononyg 
a 
NANO 


8 


007114 


-SBTTL COMMON TAGS 


FARRAR REEREEREE REE EEE 


SATHIS TABLE y nie VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


-=TAGADR 

SCMTAG: 0 ;zSTART OF COMMON TAGS 
STSTNM: .BYTE 0 ;:CONTAINS THE TEST NUMBER 
SERFLG: .BYTE O 7 2CONTAINS ERROR FLAG 
SiCNT: . D O 3:CONTAINS SUBTEST ITERATION COUNT 
SLPADR: . D QO 3:CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0O 2 CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0O ;CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ti¢ TAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 3:CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 3zCONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 3:CONTAINS ADDRESS OF ‘GOOD’ DATA 

ADR: .WORD 0 +2 CONTAINS ADDRESS Oe "BAD' DATA 
SGDDAT: .WORD 0 ae TAINS ‘GOOD’ DAT. 

T: .WORD 0 TAINS “*BAD' DATA 
—_ 8 + = RESERVED=-NOT TO BE USED 

SAUTOB: .BYTE 0O 3; AUTOMATIC MODE INDICATOR 
SINTAG: yobs 5 32: INTERRUPT MODE INDICATOR 

: -WORD DSWR :2ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP ;zADDRESS OF DISPLAY REGISTER 
TKS: 177560 i TTY KBD STATUS 
$TKB: 177562 TTY KBD BUFFER 
$TPS: 177564 S:TTY PRINTER STATUS REG. ADDRESS 
STPB: 177566 seTTy PRINTER BUFFER REG. ADDRESS 

L: OYTE 0 7: CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 sCONTAINS # OF ne CHARACTERS REQUIRED 
SFILLC: .BYTE 12 STINSERT FILL Beye 4 / AFTER A ‘LINE FEED" 
STPFLG: .BYTE 0 32" 'TERMINAL AVAILABLE’' FLAG (B1T<07>=0=YES) 
TMPO: .WORD 0 7 USE DEFINED 
STMP1: .WORD 0 ;zUSER DEFINED 
STMP2: .WORD 0 3;USER DEF INED 
STMP3: .WORD 0 sZUSER DEFINED 
STMP4: . 0 23US R DEFINED 
STIMES: 0 NUMBER OF ITERATIONS 
SESCAPE :0 +: ESCAPE ON ERROR ADDRESS 
SBELL: .ASCIZ > > smal cacita : «CODE FOR BELL 
SQUES: “ASCII /?/ TION MARK 
SCRLF : eASCII <15> 33 CARRIAGE RETURN 
SLF: eASCIZ <12> INE FEED 


+ RERRTRERRRRRARRRERAR EE REREREEERRRERREAREREEAETEREEEeEHeEeeEs 


-SBTTL APT MAILBOX~ETABLE 


J RRA AAAEARERAAEAAAERAEEEERERERAEARAEEREERRAEAEREREEREREEEEEREEEEEE 


* EVEN 
SMA 3APT MAILBOX 


IL: 
SMSGTY: .WORD AMSGTY : SME SSAGE TYPE CODE 
SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
STESTN: .WORD ATESTN ;;TEST NUMBER 


SEQ 0023 | 


. 
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APT MAILBOX=€TABL SEQ 0024 
001230 000000 SPASS: .WORD APASS  ;;PASS COUNT 
001232 000000 SDEVCT: .WORD ADEVCT DEVICE COUNT 
001234 000000 SUNIT: .WORD AUNIT ::1/0 UNIT NUMBE 
236 000000 SMSGAD: .WORD ZMESSAGE ADDRESS 
001240 000000 SMSGLG: .WORD AMSGLG :: GE 
001242 SETABLE: ::APT ENVIRONMENT TABL 
001242 000 SENV:  .BYTE AENV  ::ENVIRONMENT BY 
001243 000 SENVM: .BYTE AENVM :: T TS 
001244 000000 SSWREG: .WORD ASWREG ;:APT SWITCH REGISTER 
001246 000000 SUSWR: WORD AUSWR 3 3US 
001250 000000 SCPUOP: .WORD  ACPUOP TYPE ,OPT IONS 
:* BITS Ws-112CPU T TYPE 
7* 1704s =01, “11205502. 11720= =03,11/40=04,11/45=05 
** e = 
ie BIT 10=REAL ome CLOCK 
7* Bt 9=FLOATING POINT PROCESSOR 
= BIT 8=MEMORY 
001252 000 $MAMS1: .BYTE AMAMS1 ;;:HIGH ADDRESS.M.S. BYTE 
001253 009 SM7YP1: .BY:E AMTYP1 ::MEM. TYPE.BLKAT 
7* MEM.TYPE BYTE == (HIGH BYTE) 
7* 900 NSEC CORE=001 
* 300 NSEC BIPOLAR=002 
3* 500 NSEC mos=003 
001254 000000 SMADR1: .WORD AMADR1 ;;:HIGH ADDRESS, BLK# 
fe M.LAST ADDR. =3 BYTES. THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
001256 000 $MAMS2: .BYTE AMAMS2 ;:HIGH ADDRESS.M.S. BYTE 
001257 000 SMTYP2: .BYTE AMTYP2 3 MEM. TYPE ,BLKA2 
1260 900000 SMADR2: .WORD AMADR2 M.LAST ADDRESS BLK#2 
001262 000 SMAMS3: .BYTE AMAMS3 ;::HIGH ADDRESS,M.S.BYTE 
001263 000 SMTYP3: .BYTE © AMTYPS ; ;MEM.TY 3 
001264 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS, BLK#3 
1266 000 SMAMS4: “BYTE [:HIGH ADDRESS,M.S.BYTE 
001267 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE,BLKAG 
001270 000000 SMADR4: .WORD AMADR4 ::MEM.LAST ADDRESS, BLKA4 
1272 120254 SVECT1: .WORD AVECT1 :: INTERRUPT VECTOR#1,BUS PRIORITYA1 
001274 000000 SVECT2: .WORD AVECT2 ;: INTERRUPT VECTOR#2BUS PRIORITY#2 
001276 176700 SBASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001300 000000 SDEVM: .WORD ADEVM ::DEVICE MAP 
001302 000000 $CDW1: .WORD ACDW1 3; CONTROLLER DESCRIPTION WORDA'1 
001304 000000 SCDW2: .WORD ACDW2 ;:CONTROLLER DESCRIPTION WORD#2 
001306 000000 SDDWO: {WORD DWO  ::DEVICE DESCRIPTOR 
001310 000000 $DDW1: WORD DW] ::DEVICE DESCRIPTOR WORD#1 
001312 000000 $DDW2: .WORD ADDW2 ::DEVI SCRIPTOR 
001314 000000 SDDW3: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORD# 
001316 000000 SDDW4: =WORD DwW4  ::DEVICE DESCRIPTOR WORDA4 
001320 000000 SDDW5: WORD 2:DEVICE DESCRIPTOR WORDS 
001322 000000 DW6: .WORD ADDW6 ::DEVICE DESCRIPTOR WORD#6 
001324 000000 DW7: .WORD ADDW7 ::DEVICE DESCRIPTOR WORDA7 
001326 y ha 






0 


001326 
001330 


001332 
001333 
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-SBTTL USER DEFINED TAGS 


CTLFG: .WORD 0 :CONTAINS CONTROL=C FLAG 

XXDP: .WORD 0 ;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 

5 XXDP" DEVICE CODE FOR THE RMOS/3/2. 

LSTRK: .8YTE 0 = 0 


“BYTE 0 :HI BY “CONTAINS LAST TRACK ADDRESS OF UNIT 
R TEST. RMO2/3 = 4., RMOS = 18. 


THE REGISTER INPUT BUFFER IS USED FOR 
STORING DRIVE STATUS 


GE TBUF : 
;REGISTER INPUT BUFFER 
RMCS1I1: .WORD 0 :CONTROL, STATUS REGISTER #1 
RMWCI: .WORD 0 [WORD COUNT REGISTER 
RMBAI: .WORD 0 [BUS ADDRESS REGISTER 
RMDAI: .WORD 0 [DISK ADDRESS REGISTE 
RMCS2I: .WORD 0 : CONT STATUS REGISTER #2 
RMDSI: .WORD 0 ‘DRIVE STATUS REGISTE 
RMER1I: .WORD 0 SERROR REGISTER #1 
RMASI: .WORD 0 ZATTENTION SUMMARY REGISTER 
RMLAI: .WORD 0 [LOOK AHEAD REGISTER 
RMDBI: .WORD 0 [DATA BUFFER 
RMMRII: .WORD 0 [MAINTENANCE REGISTER #1 
RMDTI: .WORD 0 :DRIVE TYPE REGISTER 
RMSNI: .WORD 0 ;SERIAL NUMBER REGISTER 
RMOFI: <:WORD 0 [OFFSET REGISTER 
RMDCI: .WORD 0 [DESIRED CYLINDER REGISTER 
RMHRI: .WORD 0 [HOLDING REGISTER 
Ree “WORD 0 SMAINTENANCE REGISTER #2 
RMER2I: .WORD 0 ZERROR REGISTER #2 
RMECTI: .WORD 0 CC POSITION REGISTER 
RMEC2I: .WORD 0 [ECC PATTERN REGISTER 

“WORD 0 [BUS ADDRESS EXTENSION REGISTER 
RMCS31: .WORD 0 ZCONTROL, STATUS REGISTER #3 


;THE REGISTER OUTPUT BUFFER IS USED FOR 
ASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 

;REGISTER OUTPUT BUFFER 

RMCS10: .WORD 0 ZCONTROL, STATUS REGISTER #1 
RMWCO: .WORD 0 [WORD COUNT REGISTER 

RMBAO: .WORD 0 [BUS ADDRESS REGISTER 
RADAQ: “WORD 0 [DISK ADDRESS REGISTER 
RMCS20: .WORD 0 [CONTROL, STATUS REGISTER #2 
RMDSO: .WORD 0 [DRIVE STATUS REGISTER 
RMER1O: :WORD 0 SERROR REGISTER # 

RMASO: .WORD 0 SATTENTION SUMMARY REGISTER 
RMLAO: :WORD 0 [LOOK AHEAD REGISTER 

RMDBO: :WORD 0 [DATA BUFFER 

RMMR10: :WORD 0 [MAINTENANCE REGISTER #1 
RMDTO: WORD 0 [DRIVE TYPE REGISTER 


SEQ 0025 


ma 
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001464 
001506 


001522 


001551 





CZRMOAO yest 4K FCTNL TST 3 


N 2 
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RMSNO: .WORD 0 ; SERIAL ett - eine 

RMOFO: .WORD 0 OFFSET R 

RMDCO: .WORD QO DESIRED” CYLINDER REGISTER 
RMHRO: .WORD 0 HOLDING 

RMMR20: .WORD 0 MAINTENANCE REGISTER #2 
RMER2O: .WORD 0 sERROR REGISTER We 

RMEC1O0: .WORD 0 sECC POSITION REGISTER 

RMEC20: .WORD 0 3ECC PATTERN REGISTER 

RMBAEO: .WORD 0 ADDRESS EXTENSION REGISTER 
RMCS350: .WORD 0 CONTROL, STATUS REGISTER #3 


EACH WORD OF po TEST QUE CONTAINS THE DEVICE NUMBER IN 

:THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE Sryy OF THE DEVICE UNDER TEST 
ZN THE ay Fy ZERO WORD IS A BLANK AND REPRESENTS THE 


TSTQUE: .WORD 0 + CONTAINS Poe ae POINTER 
-BLKW 8. TEST QUE FOR DEVICES UNDER TEST 
-WORD 0 STABLE TERMINATOR GOFS HERE WHEN 


ALL 8. DEVICES ARE UNDER TEST. 


ent ENABLE IS SET IF THE BAD SECTOR fo HAVE BEEN RECOVERED 
OR THE UNIT UNDER TEST, OTHERWISE IT IS ZERO. 
EDEN: WORD 0 ;MEDIA E 


sLOCATIONS “‘ASNDC*' AND ‘‘ASNDC'* CONTAIN THE CYLINDER, TRACK AND SECTOR 
ADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 
ASNDC: .WORD 0 ASSIGNED DESIRED CYLINDER 


ASNDA: “GORD 0 SASSIGNED TRACK, AND SECTOR 
CLKADR: .WORD 0 [UNIBUS ADDRESS OF KW11 CLOCK 
CLKVCT: .WORD 0 [VECTOR ADDRESS OF KW11 CLOCK 


sTHE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
SARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
zA_NEGATIVE BYTE. 

GETINX: .BLKB 23. GET INDEX TABLE 


3 THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
SARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
;A_NEGATIVE BYTE. 

PUTINX: .BLKB 23. :PUT INDEX TABLE 


PUT TAGS HERE 





SEQ 0026 | 


ma 





CZRMOAO RMO5S/3/2 + tase TST 3 


ERC POINTER TABL 
0 


072254 
076346 
076472 
076562 


072260 
076345 
076472 
076562 


0 
076562 


072274 
076346 


07 
076562 


8B 3 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION 4+ EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX R_FOUND IN 

*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE a IS PERTINENT. 
:*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 


3 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EM ::;POINTS TO THE ERROR MESSAGE 
DH ::POINTS TO THE DATA HEADER 
DT :sPOINTS TO THE DATA 

DF 3sPOINTS TO THE DATA FORM.T 


see 


SERRTB: 


sERROR 1 WRONG UNIT SELECTED 


ERROR 2 DEVICE WENT UNAVAILABLE 


sERROR 3 DEVICE WENT NONEXISTENT 


sERROR 4 CONTROLLER NOT READY 


sERROR 5 DRIVE NOT READY AND GO NOT RESET 


SEQ 0027 





CZRMOAO RMOS/3/2 t ne TST 3 
ERROR POINTER TABL 


072310 
076346 
076472 
076562 


072316 
000000 


000000 
000000 


Oo reee 
076 





sERROR 6 


;ERROR 7 


ERROR 10 


sERROR 11 


sERROR 12 


sERROR 13 


zERROR 14 


ERROR 15 


-. 
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UNEXPECTED VALUE FOR ‘'ATA’’ STATUS 


BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 


DRIVE NOT READY BUT GO IS RESET 


GO NOT RESET BUT DRIVE IS READY 


INCORRECT FUNCTION CODE 


PARITY ERROR READING REMOTE REGISTERS 


TRANSFER ERROR IS INCORRECT 


INCORRECT WORD COUNT 





mn 


CZRMOAO RMOS/3/2 t "nies TST 3 
ERROR POINTER TABLE 


076562 


072370 
076346 


076472 
076562 


0 2 
076562 


072410 
0 


072440 
076346 

076472 
076562 





; ERROR 


; ERROR 


s ERROR 


ERROR 


; ERROR 


; ERROR 





D0 3 
MACRO V03.01 11-APR-80 13:39:53 PAGE 7-2 


INCORRECT BUS ADDRESS 


INCORRECT LBT STATUS 


INCORRECT AOE 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


INCORRECT WLE STATUS 





INCORRECT UPE STATUS 


SEQ 0029 





-. 
CZRMOAO wee tha t Wes TST 3 MACRO V03.01 11-APR=80 13:39:53 PAGE 7=3 
ERROR POINTER T 


2030 072450 EMT24 
002032 076346 EHT1 
2034 076472 EDT1 
002036 076562 EFT 
62 
4 ERROR 25 INCORRECT WCF STATUS 
002040 072460 EMT25 
002042 076346 EHT1 
002044 076472 EDT1 
002 076562 EFT1 
65 
66 ERROR 26 INCORRECT WCE STATUS 
002050 072470 EMT26 
002052 076546 EHT1 
2054 0764 EDT1 
002056 ote EFT1 
68 
$9 zERROR 27 INCORRECT MDPE STATUS 
2060 072500 EMT27 
002062 076346 EHT1 
002064 076472 EDT1 
002066 076562 EFT 
71 
re zERROR 30 INCORRECT DCK STATUS 
002070 072510 EMT30 
002072 076346 EHT1 
002074 076472 EDT1 
002076 076562 EFT1 
74 
4 ZERROR 31 INCORRECT ECH STATUS 
21 072520 EMT31 
002102 076346 EHT1 
21 076472 EDT1 
002106 076562 EFT1 
77 
8 zERROR 32 DLT SHOULD NOT BE SET 
002110 072530 EMT32 
002112 076346 EHT1 
002114 076472 EDT1 
002116 076562 EFT 
80 
Ah ERROR 33 MXF SHOULD NOT BE SET 
002120 072540 EMT33 





SEQ 0030 


mca 





CZRMOAO wath ks A pes TST 3 
ERROR POINTER T 


076346 
076472 
076562 


072550 
076346 
076472 
076562 


076562 


072570 
0 


0 
076562 


072610 
07 


072626 
0 


76346 


; ERROR 


ERROR 


ERROR 


ERROR 


; ERROR 


ERROR 


ERROR 





F 3 
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DTE SHOULD NOT BE SET 


INCORRECT HCRC STATUS 


INCORRECT HCE STATUS 


INCORRECT FER STATUS 


DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


LOST *MOL"’ DURING PACK ACKNOWLEDGE 


UNSAFE ERROR DURING PACK ACKNOWLEDGE 


SEQ 0031 


mao 





CZRMOAO RMOS/3/2 . TST 3 MACRO VO3.01 11-APR~80 13:39:53 PAGE 7=5 
ERROR POINTER TABL 


002214 076472 EDT1 
002216 076562 EFT1 
104 
ee sERROR 43 “OPI"' ERROR DURING PACK ACKNOWLEDGE 
002220 072640 EMT43 
002222 076346 EHT1 
002224 076472 EDT 
002226 076562 EFT1 
107 
4 ERROR 44 “RMR'' ERROR DURING PACK ACKNOWLEDGE 
002230 072650 EMT44 
002232 076346 EHT1 
22 076472 EDT1 
002236 076562 EFT1 
110 
MN} ERROR 45 “"ILR'' ERROR DURING PACK ACKNOWLEDGE 
002240 072660 EMT45 
002242 076346 EHT1 
002244 076472 EDT1 
002246 076562 EFT1 
113 
it3 sERROR 46 "*ILF’* ERROR DURING PACK ACKNOWLEDGE 
002250 0726/0 EMT46 
002252 076346 EHT1 
002254 076472 EDT] 
002256 076562 EFT1 
116 
4t4 sERROR 47 COMPOSITE ERROR STATUS IS INCORRECT 
002 072700 EMT47 
002262 076346 EHT1 
22 076472 EDT1 
002266 076562 EFT1 
119 
is sERROR 50 PARITY ERROR WRITING REMOTE REGISTERS 
22 072706 EMT50 
002272 076346 EHT1 
002274 076472 EDT! 
002276 076562 EFT 
122 
1S sERROR 51 INCORRECT IAE STATUS DURING SEEK COMMAND 
002 072716 EMT51 
002302 076346 EHT1 
002 076472 EDT1 





SEQ 0032 


ma 





CZRMOAO RMOS/3/2 FCTNL TST 3 
ERROR POINTER TABLE 


002306 076562 


072730 
076346 
076472 
076562 


072746 


076472 
076562 


072774 
076346 
076472 
076562 





se 
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; ERROR 


; ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 


EFT 


OPI ERROR DURING SEEK = MEDIUM IS NOT ON LINE 


OPI ERROR DURING SEEK = MEDIUM IS ON LINE, ASSUME 
ON CYLINDER LATCH DIDN'T RESET 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


DEVICE CHECK DURING SEEK COMMAND 


PIP IS STILL SET AFTER SEEK = SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


IVC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 


SEQ 0033 


ee ee ane 





we. 
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ERROR POINTER TABL 


002374 076472 EDT1 
002376 076562 EFT1 
148 
149 zERROR 61 ERRONEOUS IVC ERROR DURING SEEK COMMAND - 
120 3 VOLUME VALID IS STIL SET 
002400 073052 EMT61 
002402 076346 EHT1 
2404 076472 EDT1 
002406 076562 EFT1 
152 
153 sERROR 62 MOL IS ZERO, BUT OPI WAS NOT 
133 ; REPORTED DURING SEEK COMMAND 
002410 073072 EMT62 
002412 076346 EHT1 
002414 076472 EDT1 
002416 076562 EFT1 
156 
E14 ERROR 63 UNUSED 
4 000000 0 
002422 000000 0 
002424 000000 0 
426 000000 0 
159 
139 ERROR 64 DRIVE DID NOT DETECT “‘IVC’’ ERROR DURING SEEK 
002430 073110 EMT64 
002432 076346 EHT1 
002434 076472 EDT1 
002436 076562 EFT 
162 
4 ERROR 65 DRIVE EXECUTED A SEEK WITH ERROR SET 
073130 EMT65 
002442 076346 EHT1 
002: 076472 EDT! 
002446 076562 EFT1 
165 
16 ERROR 66 UNEXPECTED ERROR SET IN RMER1 
2450 073150 EMT66 
002452 076346 EHT1 
2454 076472 EDT1 
002456 076562 EFT 
168 
169 ERROR 67 UNEXPECTED ERROR SET IN RMER2 





SEQ 0034 







ERROR POINTER TABL 


076346 
076472 
076562 


073174 
076346 
076472 
076562 


073300 


CZRMOAQ RMO5/3/2 4 ‘psp TST 3 


J 5 
MACRO VO:'.01 11-APR-80 13:39:53 PAGE 7-8 


s ERROR 


7 ERROR 


; ERROR 


; ERROR 


; ERROR 


7 ERROR 


SEQ 0035 


ERRONEOUS “‘IAE’' ERROR DURING RECALIBRATE 


“*ILF’* ERROR DURING RECALIBRATE 


“OPI"' ERROR DURING RECALIBRATE DUE TO ‘MOL"’ = 


“‘OPI"' ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


"IVC'* ERROR DURING RECALIBRATE = ‘Vv'' = 0 


ERRONEOUS ‘‘IVC'* ERROR DURING RECALIBRATE =~ ‘VV'' = 1 


“SKI"’ ERROR DURING RECALIBRATE 


ma 


K 3 
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ERROR POINTER T 
002552 076346 EHT1 
002554 076472 EDT1 
076562 EFT 
193 
b= sERROR 77 "DVC"’ OCCURRED DURING RECAL IBRATE 
002 073310 EMT77 
002562 076346 EHT1 
002564 076472 EDT1 
2 076562 EFT 
196 
4 sERROR 100 LOST *MOL"* DURING RECALIBRATE = ‘OPI'' = 0 
0025 073322 EMT100 
002572 076346 EHT1 
002574 076472 EDT1 
002576 076562 EFT 
199 
3 ERROR 101 LOST "‘VV'' DURING RECALIBRATE = ‘‘IVC’' = 0 
2600 073340 EMT101 
002602 076346 EHT1 
002604 076472 EDT1 
002606 076562 EFT 
202 
2 zERROR 102 "ATA" DID NOT SET DURING RECALIBRATE 
002610 073356 EMT102 
2612 076346 EHT1 
002614 076472 EDT1 
16 076562 EFT1 
205 
8 ERROR 103 “0M"’ DID NOT RESET DURING RECALIBRATE 
002620 073366 EMT103 
002622 076346 EHT1 
002624 076472 EDT1 
002626 076562 EFT 
208 
Sp sERROR 104 "PIP’’ IS STIL SET AFTER RECALIBRATE 
002630 073400 EMT104 
002632 076346 EHT1 
002634 076472 EDT1 
076 EFT 
211 
sis zERROR 105 UNEXPECTED ‘‘ILR'’ ERROR DURING RECAL IBRATE 
002640 073416 EMT105 
002642 076346 EHT1 


SEQ 0036 


mao 


L _3 
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ERROR POINTER TABLE SEQ 0037 
002644 076472 EDT1 
002646 076562 EFT1 
214 
19 zERROR 106 UNEXPECTED ''RMR'’ ERROR DURING RECALIBRATE 
002650 073426 EMT106 
002652 076346 EHT1 
54 076472 EDT1 
002656 076562 EFT1 
217 
33 ERROR 107 "UNS'' ERROR DURING RECALIBRATE = AC POWER IS LOW 
002660 07 EMT107 
002662 076346 
002664 076472 EDT1 
076562 EFT1 
220 
$5) zERROR 110 CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 
70 073456 EMT110 
002672 370 EHT110 
002674 076510 EDT110 
002676 EFT110 
223 
$3 ERROR 111 NONEXISTENT DEVICE 
002700 073470 —MT111 
002702 076374 EHT111 
002704 076512 EDT111 
002706 076602 EFT111 
226 
227 ERROR 112 DEVICE NOT AVAILABLE 
002710 073476 EMT112 
002712 076374 EHT111 
714 076512 EDT111 
002716 076602 EFT111 
229 
4 ERROR 113 BUS TIMEQUT-NED STATUS FAILURE 
0027, 073504 EMT113 
002722 000000 
002724 000000 0 
002 000000 0 
2 
Siz ERROR 114 DEVICE NOT AN RA05/3/2 
073520 EMT114 
002732 076400 EHT114 
076514 EDT114 





mim 


CZRMOAO a rede ke t inte TST 3 


ERROR POINTER T 
002736 076604 


; ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


EFT114 


115 
pits 


116 


117 


122 


M 3 
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RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


RMMR1 NOT INITIALIZED BY UNIBUS 


RMDS NOT INITIALIZED BY UNIBUS 


SEQ 0038 | 


ma 


N 3 
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ERROR POINTER T 
256 
$2f sERROR 124 
003030 073616 EMT124 
003032 076346 EHT1 
003034 076472 EDT1 
003036 076562 EFT1 
259 
$0 ERROR 125 
003040 07 EMT125 
003042 076346 
003044 076472 EDT1 
076562 EFT1 
262 
263 sERROR 126 
264 
003050 073636 EMT126 
003052 076346 
076472 EDT1 
003056 076562 EFT1 
265 
266 sERROR 127 
267 
003060 073650 EMT127 
003062 076346 
003064 076472 EDT1 
003066 076562 EFT1 
268 
269 sERROR 130 
270 
0 —MT130 
003072 076346 HT1 
003074 076472 EDT1 
003076 076 EFT1 
271 
272 ;ERROR 131 
273 
003100 74 —MT131 
003102 076346 EHT1 
003104 076472 EDT1 
003106 562 EFT1 
274 
275 sERROR 132 
276 
003110 073 —EMT132 
003112 076346 EHT1 
003114 07647 EDT1 
003116 076 EFT1 


RMEC2 NOT INITIALIZED BY UNIBUS 


RMMR2 NOT INITIALIZED BY UNIBUS 


RMCS1 NOT CLEARED BY CONTROLLER CLEAR 


RMBA NOT CLEARED BY CONTROLLER CLEAR 


RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


RMER1 NOT CLEARED BY CONTROLLER CLEAR 


RMAS NOT CLEARED BY CONTROLLER CLEAR 


SEQ 0039 | 


ma 





CZRMOAO RMOS/3/2 FCTNL TST 3 
ERROR POINTER TABLE 


0 
076562 


073732 
076346 
076472 
076562 


073744 
076346 


076472 
076562 


073756 
076346 
076472 
076562 


076562 


074000 
076346 
076472 
076562 


074010 
076346 

076472 
076562 


B 4 
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ERROR 


; ERROR 


; ERROR 


; ERROR 


3s ERROR 


: ERROR 


7 ERROR 


133 
all 33 


134 


136 


140 


141 


RMMR1 NOT CLEARED BY CONTROLLER CLEAR 


RMDS NOT CLEARED BY CONTROLLER CLEAR 


RMEC2 NOT CLEARED BY CONTROLLER CLEAR 


RMMR2 NOT CLEARED BY CONTROLLER CLEAR 


RMCS1 NOT CLEARED BY ERROR CLEAR 


RMCS2 NOT CLEARED BY ERROR CLEAR 


RMCS1 NOT CLEARED BY DRIVE CLEAR 


Sy 


SEQ 0040 





CZRMOAO RMOS/3/2 tees TST 3 
ERROR POINTER TABL 


076562 


074030 
076346 
076472 
076562 


074049 
076562 
074050 
076346 


076472 
076562 


076562 


074070 
076346 
076472 
076562 


0 
076562 


; ERROR 


sERROR 


; ERROR 


; ERROR 


ZERROR 


; ERROR 


; ERROR 


;ERROR 


MACRO V03.01 11-APR~80 


144 


145 


147 





C 4 
13:39:53 PAGE 7-14 


RMDS NOT CLEARED BY DRIVE CLEAR 


RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR 


MEDIUM WOT ON LINE 


SEQ 0041 


mao 





321 


CZRMOAO RMOS/3/2 t he TST 3 
ERROR POINTER TABL 


074110 
076346 
076472 
076562 


074122 
pers 


0764 
876563 


076562 


074152 
076346 


076472 
076562 


074170 
076346 
076472 
076562 


074202 
076346 
076472 
076562 


074214 
076346 
076472 
076562 


D 4 
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;ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


7 ERROR 


ERROR 


bie 


153 


154 


155 


157 


DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY OFFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND 


SEQ 0042 


CZRMOAO RMO5S/3/2 FCTNL TST 3 
ERROR POINTER TABLE 


074226 
076346 
076472 
076562 


076503 


074250 
076346 
076472 
076562 


076142 
0 0 


074272 
076346 
076472 
076562 


074300 
076346 
076472 
076562 


074306 
076346 
076472 
076562 


; ERROR 


ERROR 


;ERROR 


; ERROR 


; ERROR 


: ERROR 


ERROR 





EMT160 
EHT1 


161 


162 


EF T336 


164 
be 


E 4 
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RMDA NOT RESET BY RIP COMMAND 


RMDC NOT RESET BY RIP COMMAND 


DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 


OPI SHOULD NOT BE SET 


IVC SHOULD NOT BE SET 


IAE SHOULD NOT BE SET 


NEM SHOULD NOT BE SET 





SEQ 0043 





F 4 
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ERROR POINTER TABL 


003460 074314 EMT167 
003462 076346 EHT1 
003464 076472 EDT1 
003466 076562 EFT1 
365 
38 ERROR 170 UNUSED 
sou72 See 
003474 tdctied 0 
003476 000000 0 
368 
ead ERROR 171 "‘ATA'' NOT SET DURING RETURN TO CENTERLINE 
35 074332 —MT171 
003502 076346 EHT1 
35 076472 EDT1 
003506 076562 EFT1 
371 
es sERROR 172 “‘ATA'' NOT SET BY OFFSET COMMAND 
003510 074342 EMT172 
003512 076346 EHT1 
003514 076472 EDT1 
003516 076562 EFT1 
374 
to ERROR 173 RMER2 NOT INITIALIZED BY UNIBUS INIT 
35 074352 EMT173 
003522 076346 EHT1 
003524 076472 EDT1 
003526 076562 EFT1 
377 
8 ERROR 174 RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 
35 074362 EMT174 
003532 076346 EHT1 
35 076472 EDT1 
003536 076562 EFT1 
380 
al ;ERROR 175 SELECTED DEVICE IS IN WRITE PROTECT 
003540 074374 EMT175 
003542 076346 EHT1 
3544 076472 EDT1 
003546 076562 EFT1 
383 
44 ERROR 176 CANNOT SET DIAGNOSTIC MODE 
003550 074402 EMT176 





C 
SEQ 0044 | 





a BY 
CZRMOAO RMOS/3/2 FCTNL TST 3 MACRO VO3.01 11-APR-80 13:39:53 PAGE 7-18 


ERROR POINTER TABLE 


003552 076346 EHT1 
003554 076472 EDT1 
003556 076562 EFT1 
386 
387 ;ERROR 177 
388 
003560 074410 EMT177 
003562 076346 EHT1 
003564 076472 EDT1 
003566 076562 EFT1 
389 
tr ;ERROR 200 
003570 074422 EMT200 
003572 076346 EHT1 
003574 076472 EDT1 
003576 076562 EFT1 
392 
393 sERROR 207 
394 
3600 074434 EMT201 
003602 076346 EHT1 
3604 076472 EDT1 
003606 076562 EFT1 
395 
396 sERROR 202 
397 
003610 074446 EMT202 
003612 076346 EHT1 
003614 076472 EDT1 
003616 076562 EFT1 
398 
399 sERROR 203 
400 
003620 074460 EMT203 
003622 076346 EHT1 
003624 076472 EDT1 
003626 076562 EFT1 
401 
402 sERROR 204 
403 
3630 074472 EMT 204 
003632 076346 EHT1 
3634 076472 EDT1 
003636 076562 EFT1 
404 
405 sERROR 205 
406 
003640 074510 EMT205 
003642 076346 EHT1 





INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


"MOL'' STATUS DURING DIAGNOSTIC MODE 


PIP’ STATUS DURING DIAGNOSTIC MODE 


"WRL'' STATUS DURING DIAGNOSTIC MODE 


"SKI'* STATUS DURING DIAGNOSTIC MODE 


"DVC'’ STATUS DURING DIAGNOSTIC MODE 


“VV"" WAS NOT RESET BY MAINTENANCE UNIT READY 


SELECTED DEVICE HAS A PERSISTENT ‘SKI’ ERROR 


SEQ 0045 


H 4 
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ERROR POINTER TABL 





003644 076472 EDT1 
003646 076562 EFT1 
407 
3 sERROR 206 "LBC'' DID NOT SET DURING DIAGNOSTIC MODE 
003650 074520 EMT206 
003652 076346 EHT1 
003654 076472 EDT1 
003656 076562 EFT1 
410 
ei} ERROR 207 UNEXPECTED LOSS OF ‘'MOL"’ = MEDIUM IS OFF LINE 
003660 074530 EMT207 
003662 076346 EHT1 
003664 076472 EDT1 
003666 076562 EFT1 
413 
a2 ERROR 210 UNEXPECTED LOSS OF VOLUME VALID - ‘Vv'' = 0 
003670 074542 EMT210 
003672 076346 EHT1 
003674 076472 EDT1 
003676 076562 EFT1 
416 
it ERROR 211 UNEXPECTED MECHANICAL MOTION - ‘PIP’' = 1 
0037 074550 EMT211 
003702 076346 EHT1 
0037 076472 EDT1 
003706 076562 EFT 
419 
rs ERROR 212 UNEXPECTED DEVICE FAULT - ‘DVC"’ = 1 
003710 074564 EMT212 
003712 076346 EHT1 
003714 076472 EDT1 
003716 076562 EFT 
422 
rts ERROR 213 UNEXPECTED SEEK INCOMPLETE ERROR - ‘'SK]'' = 1 
37, 074600 EMT213 
003722 076346 EHT1 
003724 076472 EDT1 
003726 076562 EFT1 
425 
$38 ERROR 214 DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 
003730 074610 EMT214 
003732 076360 EHT2 
37 076502 EDT2 





SEQ 0046 


003736 


428 
429 





CZRMOAO RMO5S/3/2 + bees TST 3 
ERROR POINTER TABL 


076572 


074630 
076360 
076502 
076572 


0 2 
076562 


074652 
076346 


076472 
076562 


0 
076562 


074672 


076562 


074702 
076346 
076472 
076562 


074712 
076404 
076516 
076606 





EFT2 


sERROR 215 


sERROR 216 


;ERROR 217 


sERROR 220 


sERROR 221 


sERROR 222 


sERROR 223 


EFT223 





DRIVE DID 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


I 4 
MACRO VO3.01 11-APR-80 13:39:53 PAGE 7-20 C. 


SEQ 0047 EF 


NOT DETECT ‘‘IVC'’ ERROR DURING RECALIBRATE 


“IVC'' STATUS 


"*TAE"' STATUS 


"WLE'’ STATUS 


“OPI'’ STATUS 


RM DID NOT DETECT RMR ERROR 


RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 


CZRMOAO RMOS/3/2 + Wen TST 3 
ERROR POINTER TABL 


ALNO 


1 
1 
1 
1 


; ERROR 


; ERROR 


; ERROR 


: ERROR 


ERROR 


; ERROR 


7; ERROR 


224 


oooo 


Nm 


25 


oooo 


Nm 


26 


oooo 


™m 


27 


oooo 


Nm 


30 


oooo 


Nm 


31 


oooo 


Nm 


32 


ooo°o 





J 4 
MACRO VO3.01 11-APR-80 13:39:53 PAGE 7-21 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 











CZRMOAO itn tha + ew TST 3 
ERROR POINTER T 


K 4 
MACRO V03.01 11-APR~80 13:39:53 PAGE 7=22 


; ERROR 


‘ 


UNUSED 


SEQ 0049 


L 4 
CZRMOAO RMOS/3/2 t hes TST 3 MACRO VO3.01 11-APR=80 13:39:53 PAGE 7-23 


ERROR POINTER TABL SEQ 0050 
492 SERROR 242 UNUSED | 
004210 000000 0 
004212 000000 0 
004214 000000 0 
004216 000000 0 
494 
495 ERROR 243 UNUSED 
004220 000000 0 
004222 000000 0 
004224 000000 0 
004226 000000 0 
497 
498 ERROR 244 UNUSED 
499 
230 000009 0 
004232 000000 0 
234 000000 0 
004236 000000 0 
500 
501 SERROR 245 UNUSED 
004240 000000 0 
004242 000000 0 
004244 000000 0 
004246 000000 0 
503 
304 ERROR 246 ‘ATA’ NOT RESET BY GO WHEN ‘ERR’ = 0 
004250 074766 EMT 246 
004252 076346 
004254 076472 EDT1 
256 076562 EFTI 
506 
507 ZERROR 247 ATA’ NOT RESET BY WRITING RMAS 
004260 074776 EMT247 
004262 076346 
004264 076472 EDT1 
004266 076562 EFT1 
509 
349 ERROR 250 ‘ATA’ WAS RESET BY GO WHEN ‘ERR’ = 1 
004270 075010 EMT250 
004272 07634 
004274 076472 EDT1 
004276 076562 EFTI 
512 
513 ZERROR 251 PROGRAM INTERRUPT WAS NOT GENERATED 


| 
EARS os 





514 


CZRMOAO RMOS/3/2 + lang TST 3 
ERROR POINTER TABL 


075024 
076360 
076502 
076572 


075032 
076360 
076502 
076572 


0 2 
076562 


075056 


075076 
076416 
076516 
076606 


076562 


M4 
MACRO V03.01 11-APR~80 13:39:53 PAGE 7-24 


; ERROR 


; ERROR 


; ERROR 


ERROR 


ERROR 


7 ERROR 


ERROR 


EMT251 
EH 


254 


255 


256 


EFT223 


257 
EMT257 
EHT1 


PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 


OFFSET MODE WAS NOT RESET BY WRITING RMDC 


INCORRECT ‘‘ILF'’ STATUS 


INCORRECT *‘ATA’* STATUS 


INCORRECT **ILR’* STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


“IVC'' WAS NOT DETECTED DURING SEARCH COMMAND 


SEQ 0051 


— 


am 


seg 1A 





CZRMOAO ete ‘af TST 3 
ERROR POINTER T 


075120 
076346 


075172 
076346 
076472 
076562 


075212 
076346 
076472 
076562 


075232 
076346 

076472 
076562 


; ERROR 


; ERROR 


s ERROR 


: ERROR 


7 ERROR 


ERROR 





N 4 
MACRO VO3.01 11=APR-80 13:39:53 PAGE 7-25 


262 


263 


265 





DRIVE EXECUTED SEARCH WITH ERROR SET 


“LBC"' ERROR NOT SET DURING DIAGNOSTIC MODE 


"SKI"' ERROR DURING SEARCH COMMAND 


""IVC’* ERROR DURING SEARCH = LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH = VOLUME IS VALID 


DEVICE FAULT (DVC) DURING SEARCH 





SEQ 0052 | 


an 





CZRMOAO wel Ste FF ieee TST 3 
ERROR POINTER T 


075244 
07 


075276 
076346 
07647 
07656 


075314 
076346 
076472 
076562 


075332 
076346 
076472 
076562 


075350 
0 


0 
076562 





8B 5 
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; ERROR 


; ERROR 


7 ERROR 


s ERROR 


ERROR 


ERROR 


old 


271 


273 


OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI i? on DURING SEARCH BECAUSE ON CYLINDER 
DIDN*T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR = COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


SEQ 0053 


+--+, 


| 
| 


Ci 





CZRMOAO RMOS/3/2 FCTNL TST 3 
ERROR POINTER TABLE 


0 
076562 


075414 
076346 
076472 
076562 


075432 
076346 
076472 
076562 


075452 
076346 
076472 
076562 


075474 
076346 
076472 
076562 


076562 


075520 
076346 


‘? 
MACRO VO3.01 11-APR~80 13:39:53 PAGE 7-27 


; ERROR 


ERROR 


; ERROR 


; ERROR 


ERROR 


zs ERROR 


7 ERROR 


276 


EMT276 
EHT1 


302 


304 
EMT304 
EHT1 


Aw ERROR DURING DATA TRANSFER BECAUSE ‘MOL'’ WAS 


“‘OPI"* ERROR DURING DATA TRANSFER BECAUSE 1) ON 
CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 


"IVC" Pon DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS *‘IVC'' ERROR DURING DATA TRANSFER = VOLUME 
IS VALID 


*"ILR’* ERROR DURING DATA TRANSFER 


“ILF** ERROR DURING DATA TRANSFER 


“'RMR'" ERROR DURING DATA TRANSFER 


SEQ 0054 _— 


Ci 
$1 





004634 
004636 


CZRMOAO RMO5/3/2 + pein TST 3 
ERROR POINTER TABL 


076472 
076562 


075532 
076346 
076472 
076562 


075544 
076346 

076472 
076562 


075554 


076562 


075574 
076346 
076472 
076562 


0 
076562 


075620 
076346 


076472 
076562 


075632 
076346 
076472 


MACRO V03.01 11-APR-80 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 


sERROR 


; ERROR 


306 


307 


310 


311 


312 


D 5 
13:39:53 PAGE 7=28 


INCORRECT *‘IAE'* STATUS DURING DATA TRANSFER 


"'SKI'' ERROR DURING DATA TRANSFER 


DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 


DEVICE FAULT DURING DATA TRANSFER 


LOSS OF BIT CLOCK DURING DATA TRANSFER 


LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 


SEQ 0055 


Ci 
$] 





CZRMOAO RMOS/3/2 4 bes TST 3 
ERROR POINTER TABL 


004726 


076562 


075652 
076346 
076472 
076562 


07 
076562 


075676 
076346 
076472 


076562. 


075710 
076346 
076472 
076562 


075720 
076346 

076472 
076562 


075730 
076346 
076472 
076562 


075740 
076346 

076472 
076562 





MACRO VO3.01 11=APR-80 13:39:53 PAGE 7229 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


sERROR 


ERROR 


ERROR 


EFT1 


314 
eu 


316 


317 


321 


DRIVE TIMING ERROR DURING DATA TRANSFER 


WRITE LOCK ERROR 


ERRONEOUS WRITE LOCK ERROR 


HEADER CRC ERROR DURING DATA TRANSFER 


FORMAT ERROR DURING DATA TRANSFER 


HEADER COMPARE ERROR DURING DATA TRANSFER 


HEADER ERRORS SHOULD NOT BE SET 


SEQ 0056 


YO 


CZRMOAQ RMOS/3/2 FCTNL TST 3 
ERROR POINTER TABLE 


075746 


076562 


075756 
076346 
076472 
076562 


075770 
076346 

076472 
076562 


0 2 
076562 


076042 
076346 
076472 
076562 


ERROR 


; ERROR 


; ERROR 


sERROR 


;ERROR 


; ERROR 


sERROR 





MACRO VO3.01 11-APR~80 


324 


326 


327 


331 


, 5 
13:39:53 PAGE 7=30 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 





ao 





CZRMOAO RMO5/3/2 FCTNL TST 3 
ERROR POINTER TABLE 


2 
076562 


076104 
076346 
076472 
076562 


076122 
0 


076562 


076142 
076430 
076526 
076616 


076152 


ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 


sERROR 


; ERROR 





333 


334 


EMT 334 
EHT1 


335 


336 


EFT336 


337 
EMT337 


EFT337 


340 
EMT340 


EFT336 


G 5 
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DATA LATE ERROR DURING DATA TRANSFER 


PIP STIL SET AFTER DATA TRANSFER = SKI = 0 


LOST MOL DURING DATA TRANSFER = OPI = 0 


LOST VOLUME VALID DURING DATA TRANSFER = IVC 


DATA READ DOES NOT COMPARE WITH DATA WRITTEN 


WRITE CHECK ERROR NOT DETECTED 


WRITE CHECK ERROR AT UNEXPECTED ADDRESS 


0 





CZRMOAO RMO5S/3/2 t We TST 3 
ERROR POINTER TABL 


076202 
076346 


076472 
076562 


076214 
076346 
076472 
076562 


076226 


076240 
076346 
076472 
076562 


076250 
076346 
076472 
076562 


0 
076562 


; ERROR 


ERROR 


z ERROR 


zs ERROR 


; ERROR 


; ERROR 


z ERROR 


ERROR 





341 
EMT 341 


EFT336 


342 
EMT342 
EHT1 


344 
EF T344 


345 
8 ee 


347 


H 5 
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INCORRECT DATA DURING WRITE CHECK ERROR 


“"IVC'* ERROR NOT DETECTED DURING DATA TRANSFER 


“FER'' NOT DETECTED DURING DATA TRANSFER 


"HCE'' NOT DETECTED DURING DATA TRANSFER 


"BSE'' NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH - ‘‘IVC‘' = 0 


SEQ 0059 


“mo 
7 


ias 





CZRMOAO RMOS/3/2 FCTNL TST 3 


ERROR POINTER TABLE 


712 


076276 
076346 
076472 
076562 


076314 
076346 
076472 
076562 


076324 
000009 


000000 
000000 


076330 
076466 


2 
076562 


a 
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sERROR 351 


;ERROR 352 
EMT352 
0 
0 
0 
;ERROR 353 
EMT353 


EFT353 


sERROR 354 
EMT354 


“ATA'' DID NOT SET DURING SEARCH 


PROGRAM TIMEOUT WHILE TESTING RMLA 


LOOK AHEAD TEST FAILS 


BSE SHOULD NOT BE SET 


;PUT ERROR TABLE HERE 


SEQ 0060 





CZRMOAO wT idole FCTNL TST 3 
ERROR TABLE U 


OWONAUSWN—ODOONAUSWH = 


ed sd 


VIS 


J 5 
MACRO VO03.01 11-APR~80 13:39:53 PAGE 8 


-SBTTL ERROR TABLE USAGE 
+ THE ag TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 


; EMT = ERROR MESSAGE TABLE ADDRESS 
; EHT = ERROR HEADER TABLE ADDRESS 
; EDT = ERROR DATA TABLE ADDRESS 

: EFT = ERROR FORMAT TABLE ADDRESS 


sTHE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 

FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
ne BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
:NO ME SSAGE TO BE TYPED FOR THE ERROR. 


SIMILARLY. THE EHT, ah AND EFT ENTRIES ARE ADDRESSES OF TABLES 
:OF HEADER, DATA AND FORMAT og ap ars. A_GIVEN ERROR. EACH ENTRY 


;DATA 

sHEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 
BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
:MUST ALSO HAVE A FORMAT. 


IN SUMMARY, 

: EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

: EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
: OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 


SEQ 0061 


C2 
T4 


K 5 
CZRMOAO +t pt # FCTNL TST 3 MACRO VO03.01 11=APR-80 13:39:53 PAGE 9 


ERROR TABLE U SEQ 0062 
J ;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
3 005340 011600 BADTMO: MOV (SP) ,RO ;SAVE PC WHERE THE TIME OUT OCCURED 
4 005342 005740 TST -(R SADJUST PC <2 
5 005344 022626 CMP (SP)+, (SP) + SRESTORE STACK POINTER 
6 005346 104401 005354 TYPE ,65$ is TYPE ASCIZ STRING 
005352 000417 BR 64$ ‘GET OVER THE ASCIZ 
‘once 658: “ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
7 005412 010046 MOV RO,-(SP) ;SETUP FOR TYPING OUT PC 
8 005414 104402 TYPOC 
9 005416 000240 NOP TO. "HALT(O)" INSTRUCTION HERE IF YOU WISH 
19 ;TO STOP ON UNEXPECTED TIMEOUT. 
\g -SBTTL START OF PROGRAM 
14 005420 000240 START: NOP 
15 005422 005227 000000 INC #0 sTTY LOOP, WAIT FOR INCREMENT 
16 005426 001375 BNE = [OF WORD 
4 005430 000005 RESET sRESET THE WORLD 
19 .SBTTL i A AE THE COMMON TAGS 
3:CLEAR THE COMMON TAGS ($CMTAG) AREA 
005432 012706 001114 MOV ASCMTAG,R6 3zFIRST LOCATION TO BE CLEARED 
005436 005026 CLR (R6) + ::CLEAR MEMORY LOCATION 
005440 022706 001154 CMP ASWR,R6 3 2DONE? 
005444 001374 +4 33LOOP BACK IF NO 
005446 012706 001100 TACK “SP t:SETUP THE STACK POINTER 
ss INITIALIZE A FEU VECTOR 
005452 012737 065342 000020 #SSCOPE OSPIOTVEC #107 VECTOR FOR SCOPE ROUTINE 
005460 012737 340 000022 mov #340, aMIOTVEC+2 ; :LEVEL 
5 012737 065736 000030 MOV #SERROR , aMEMTVEC Fi VECTOR FOR ERROR ROUTINE 
005474 012737 0 000032 MOV #340, O OREMTYECLS #3LEV 
2 012737 067476 000034 MOV #STRAP, @#TRAPVEC ee FOR TRAP CALLS 
005510 012737 000340 000036 MOV #340, ai TRAPVEC +2; siéve 
005516 012737 067604 000024 MOV ASPWRDN, a#PWRVE Cs POWER FAILURE VECTOR 
005524 012737 000340 000026 MOV #340, BYPURVEC SS :: LEVEL 7 
005532 013737 037514 037506 MOV SENDCT. SEOPCT ::SETUP END-OF-PROGRAM COUNTER 
005037 001206 CLR MES :: INITIALIZE NUMBER OF ITERATIONS 
44 005037 001210 CLR Seecabe CLEAR THE ESCAPE ON ERROR ADDRESS 
005550 112737 000001 001131 MOVB #1, SERMAX TZALLOW ONE ERROR PER TES 
56 012737 005556 001122 MOV #. .SLPADR 33 INITIALIZE THE LOOP ADDRESS FOR SCOPE 
012737 005564 001124 MOV #..SLPERR “SETUP THE ERROR LOOP ADDRESS 
i:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT 
T:EQUAL TO A ''=1'', SETUP FOR A WARE SWITCH REGISTER. 
005572 013746 000004 MOV @FERRVEC,-(SP) OF SAVE ERROR VECTOR 
005576 012737 005632 000004 MOV S6LS MeERRVEC ::SET UP ERROR VECTOR 
005604 012737 177570 001154 MOV #DSWR, SWR :3 SETUP FOR A HARDWARE SWICH REGISTER 
005612 012737 177570 001156 | MOV WDDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
005620 022777 177777 173326 CMP #-1,aSUR +: TRY TO REFERENC SwWR 
005626 001012 BNE 66$ BRANCH IF NO TIMEQUT TRAP OCCURRED 
33 THE HARDWARE SWR IS NOT = ~1 
005630 000403 BR 65$ : BRANCH IF NO TIME 
005632 012716 005640 64$: MOV #65$, (SP) ':SET UP FOR TRAP RETURN 
5636 000002 RTI 


00 
005640 012737 000176 


001 65$: MOV #MSWREG, SWR 22POINT TO SOFTWARE SwWR 
005646 012737 000174 001 


54 
56 MOV #DISPREG, DISPLAY 








005654 


012637 


005037 
132737 
001403 
012737 


012737 


CZRMOAO_ RMO5/3/2 ot aes 3 
INITIALIZE THE COMMON T 


177777 
037650 
006014 
000042 
001242 
001154 


000001 


001330 
000016 


000040 
000007 
001330 
000042 


006144 


001330 


L 3 
MACRO VO3.01 11-APR-80 13:39:53 PAGE 9-1 
SEQ 0063 


66$: MOV (SP)+,@M#ERRVEC ;;RESTORE ERROR VECTOR 


CLR SPASS 3:CLEAR PASS COUNT 
001243 Bear anata ah A SIZE_UNDER APT 


22YES,USE NON-APT SWITCH 
001154 673: MOV ASSWREG , SWR 22NO,USE APT SWITCH REGISTER 
;SETUP *‘TIMEOUT’’ TRAP VECTOR FOR py rag h e BUS TIMEOUTS 


000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
000006 MOV MPR6,ERRVEC+2 ;LEVEL 6 
MOV #PR6,-(SP) 33PUT NEW PS ON STACK 
MOV #68$ ,-(SP) 33PUT NEW PC ON STACK 
RTI 33POP NEW PC AND PS 
68$: 
-SBTTL TYPE PROGRAM NAME 
: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 sFIRST TIME? 
BNE 695 i CH IF NO 
000042 sre -— -@442 SEBRANCH IF_Y 


H YES 
TYPE .70$ PE ASCIZ_ STRING 
-SBTTL st VALUE FOR SOF TWARE swiTCH REGISTER 
arse 32ARE WE pee UNDER XXDP/ACT? 


BNE 71$ 2 BRANCH IF Y 

000001 CMPB SENV #1 32ARE WE RUNNING UNDER APT? 
BEQ 71$ ; BRANCH IF YES 

000176 CMP SWR ,ASWREG 2sSOFTWARE SWITCH REG SELECTED? 
BNE 72$ : ;BRANCH 
sie 72$ :2GET SOFT-SWR SETTINGS 

001150 ois: MOVB #1, $AUTOB 32SET AUTO-MODE INDICATOR 


BR 69$ 2:GET OVER THE ASCIZ 
jp roe: eASCIZ <CRLF>@CZRMOAO - RMOS/3/2 FUNCTIONAL TEST, PART 3@<CRLF> 


3 THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 


CLR XXDP 3CLEAR "XXDP* LOAD DEVICE STORAGE 
000041 CMPBs#'16,a#41 TLOADED FROM AN RMOS/3/2 ? 
BNE SBRANCH IF NOT 
001330 MOV a#40, XXDP [GET DEVICE INDICATOR AND NUMBER 
001330 CMe #7 XXDP 18 IT A VALID NUMBER ? 
CLRB  —- XXDP [NO, DEFAULT TO DRIVE 0 
1$: TST ars2 ZCHAIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 2$ [BR IF NEITHER 
TYPE 74$ 7:TYPE ASCIZ $ 
BR 73$ + :GET OVER THe Netiz 
54768: sASCIZ <CRLF>/NOT TESTING DRIVE / 
CLR -(SP) ZCLEAR WORD ON STACK 
MOVB _—XXDP,, (SP) iGET DRIVE ADDRESS 
TYPOS TYPE THE ADDRESS 


-BYTE 1 SONLY 1 CHARACTER 


_— —— 


72 006474 


2 


woo 


Sittatets 
SRNaS 


MMM 


ee 
& 


RBLEVBLRALAVASIAIFINA 
REG 


CZRMOAO RMOS/3/2 FCTNL 
GET VALUE FOR SOFTWARE 


000 
104401 
000517 


T 3 


TS 
SWITCH REGISTER 


001217 


177777 
006224 


001330 
006264 


006354 


001150 
000377 


000200 


001276 
071616 


071416 
001330 


001330 


071453 
004000 


071472 
010000 


M5 
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001300 


001243 


001300 
006652 


000010 


006652 
000010 
006652 
000000 
006652 
000012 


2$: 


sin 


fis: 


5g 798: 


$: 


-BYTE 
TYPE 
BR 


INC 


BR 
-ASCIZ 
TYPE 
BR 
-ASCIZ 


BEQ 
MOV 


O SRL 
$$ 


#~1 
3$ 
76$ 


5$ 
<CRLF>/TO TEST DRIVE / 


=(SP) 
XXDP,, (SP) 
1 

78s 
? 


+: i LEADING ZEROS 
;GET NUMBER OF DRIVES 
ol TIME THRU HERE ? 
set OVER THE Roe 


CLEAR WORD ON STACK 
GET DRIVE ADDRESS 
TYPE DRIVE ADDRESS 
Y 1 CHARACTER 
 SUPRESS ciz STRING 


ii TYPE ASCIZ STR 
32GET OVER THE 


7$ ASCIZ 
/, HALT PROGRAM, REMOVE RRDP PACK AND REPLAC. IT/<CRLF> 


79$ 


3: TYPE ASCIZ STRING 
R_ THE 


32GET OVE ASCIZ 
/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 
; CHECK FOR AUTO MODE OR STANDLONE MODE 
TSTB $AUTOB 


STANDALONE 


#377 ,SDEVM 


a IN AUTO MODE ? 
iSET DEVICE MAP FOR ALL DRIVES 


Ts ee IS RUNNING IN AUTO MODE ~ SEE IF SIZING IS ALLOWED 


1$: 


2$: 


BITB 
BNE 


#BIT7,SENVM :SIZING ALLOWED ? 

7$ ;NO 

R1 :START FROM DRIVE 0 

SBASE ,RO ;LOAD THE BASE ADDRESS 

ATNTBL(R1) ,$DEVM 31S DEVICE PRESENT IN MAP ? 
MLODEV,5$ :GET ADDRESS OF LOAD DEVICE MESSAGE 
-— ;LOADED FROM RMOS/3/2 ? 

XXDP,R1 HIS THIS THE DRIVE ? 

3$ zYES, TRY NEXT DRIVE 


#CLR,RMCS2 (RO) 
R1,RMCS2(RO) 


#NOTPRS , 5$ 
en Ae 


L,5$ 


#NOTAVL, 
at tataady (RO) 


#OFFLIN,5$ 


#MOL .RMDS (RO) 
3$ 


6$ 


CLEAR MASS BUS 
LOAD THE DRIVE ADDRESS 
:TRY TO ACCESS AN RM DRIVE REGISTER 
ADDRESS OF wr PRESENT MESSAGE 
HIS ge PRESENT 
T ADDRESS OF ~~ hr MESSAGE 
DRIVE AVAILABLE ? 


NO 
T ADDRESS OF OFF LINE MESSAGE 
UM ON LINE ? 


SEQ 0064 


ee 


Té 


RS 


RMOAO RMOS/3/2 FCTNL T 
T VALUE FOR SOFTWARE 
95 
96 006624 146137 
97 Ope 32 10440 
98 006636 104401 
99 006642 010146 
006644 1044 
006646 
006647 
100 006650 104401 
es 006652 
103 006654 00520 
104 006656 020127 
ee 006662 0057 
107 006664 104401 
108 006670 005 
109 006672 005 
110 006674 001376 
111 006676 5 
I1¢ 006700 001376 
ing 006702 000137 
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ST 3 
SulTCH REGISTER 


071616 
001217 
071410 


000007 


001217 


007612 


001300 3$: 
4$: 


5$: 
6$: 


7$: 


wy pete: SDEVM 
e$CRL 


“MSCDRV 
R1,=(SP) 


CMNSTART 


CLEAR DEVICE FROM BIT MAP 


TYPE *DRIVE' 
13 SAVE R1 FOR TYPEOUT 
2390 sre reirce ASCII 
sz TYPE 2 DIGIT(S) 
Hf bo age SS CEADING ZEROS 
RROR MESSAGE 


E 
‘ADDRESS OF MESSAGE GOES HERE 


: INCREMENT THE DRIVE ar ene 
ALL DRIVES ARE CHECKED 
BRANCH IF NOT 


7 CR=LF 
; THESE TWO LOOPS ARE ADDED TO 
;WAIT FOR TTY TO FINISH TYPING. 


; JUMP TO COMMON START 


am 


CZRMOAO RMOS/3/2 FCTNL 
STANDALONE INPUT ROUTI 


; 
3 006706 
4 006706 


Ett 
BRVsS 


OWONAOVUSWN"OVONAW 
Es 
& 


ee ed ed ed od ow = 
IN 
Ww 
N 


VIS 
g 
$ 





8 
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000131 


000116 


000131 
000116 


000131 
000116 


-SBTTL STANDALONE INPUT ROUTINES 


STANDALONE : 
JSR PC,S$TKINT : INITIALIZE CONSOLE 
INC #=1 sFIRST TIME THRU HERE ? 
BEQ 3$ sves $1 


So IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 


TYPE . CNSLOO oor act PREVIOUS PARAMETERS ? 
CHR GET RESPONSE 


RD 
MOV (SP)+,$TMP1 SECHO RESPONSE 
CMPB ss $TMP'1,#'Y :YES RESPONSE ? 
BNE 2$ NO! ! 
TYPE ,$CRLF = CR-LF 
JMP CMNSTART [KEEP PREVIOUS PARAMETERS 

2$: CMPB Ss $TMP'1,#'"N ZNO RESPONSE ? 
BEO 5% [YES, GET NEW PARAMETERS 
TYPE , CNSLO8 [NO, TYPE ' ILLEGAL INPUT 
BR i$ ‘TRY AGAIN 

gSeeE IF OPERATOR WANTS HELP TEXT 

; TYPE §_,MSHELP :WANT HELP ? 

RDCHR [GET RESPONSE 
MOV (SP)+,$TMP1 :SAVE AND ECHO RESPONSE 
TYPE $TMP 
CMP STMPI.#'y ;WAS IT A YES RESPONSE ? 
CMB STNPT#'N suas IT A NO RESPONSE ? 
TYPE CNSLO8 :NO, TYPE * ILLEGAL INPUT' 
BR ‘TRY AGAIN 

4$: TYPE HELP [YES = TYPE HELP TEXT 

SEE IF USER WANTS TO CHANGE ADDRESSES 

; TYPE  ,$CRLF CRLF 

TYPE | UBUSQST [WANT TO CHANGE ADDRESS ? 
RDCHR *GET RESPONSE 
MOV (SP)+,$TMP1 [SAVE AND ECHO RESPONSE 
TYPE .STMPA 
CMe SIMPL .#*Y :WAS IT A YES RESPONSE ? 
CPB STNPI .#"N :WAS IT A NO RESPONSE ? 
TYPE CNSLO8 oN TYPE * ILLEGAL INPUT ° 
BR §$+4 ‘TRY AGAIN 


ate TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 


TYPE CNSLO1 : TYPE CURRENT BUS ADDRESS 
MOV $BASE ,-(SP) [SAVE $BASE FOR TYPEOU 
TYPOC +260 TYPE--OCTAL ASCII TALL DIGITS) 








BSISSBSSSRESSS SR LKILYVLS 
esses seeseses 
3 


104401 


013737 
104401 
046 


CZRMOAO RMOS/3/2 FCTNL TST 3 
STANDALONE INPUT ROUTINES 


070336 
001176 
160000 
071026 
001176 
071070 
001272 


070336 
001176 
001000 
071110 
001176 
071144 
001273 


C 
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001176 


001276 


001176 


001272 


000007 


TYPE QUES sTYPE '' 2°" 
RDOCT :GET NEW BUS ADDRESS 
MOV (SP)+,$TMP1 S CARRIAGE RETURN ? 
BEQ *YES=SKIP TO NEXT ENTR 
COP #160000, STMPI :BASE ADDRESS IN 1/0 PAGE ? 
TYPE —_,CNSLO2 ‘TYPE WARNING MESSAGE 
BR +4 ‘TRY AGAIN 
7$: MOV STMP1 , SBASE ‘STORE NEW BUS ADDRESS 
8$: TYPE —_, CNSLO3 
CLR =(SP) 
MOVE $VECT1, (SP) :GET CURRENT VECTOR ADDRESS 
.BYTE 3 :TYPE 3 DIGITS 
"BYTE 0 SUPPRESS LEADING ZEROS 
TYPE QUES :TYPE ° 
RDOCT GET New VECTOR ADDRESS 
MOV (SP)+,$TMP1 S CARRIAGE RETURN? 
BEQ SYES=SKIP TO NEXT ENTRY 
CMP #1000, $TMP1 :VECTOR ADDRESS < 1000 ? 
TYPE CNSLO4 : TYPE WARNING MESSAGE 
9$: MOVB  $TMP1,$VECT1 |: STORE NEW VECTOR ADDRESS 
10$: TYPE -CNSLOS 
MO SVECT1+1,(SP) | ;:GET CURRENT BR LEVEL 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
TYPOS 
.BYTE 1 ZONLY 1 DIGIT 
"BYTE 0 ‘SUPPRESS LEADING ZEROS 
TYPE QUES 
RDOCT :GET NEW PRIORITY | 
MOV (SP)+,$TMP1 SCARRIAGE RETURN ? 
BEQ 12$ SYES=SKIP TO NEXT ENTRY 
CMP STNPI, a? ;LEGAL PRIORITY 
TYPE CNSLO6 ives “WARNING MESSAGE 
10s ‘TRY AGAIN 
11$: ASL $TMP1 ‘STORE NEW PRIORITY 
ASL $TMP1 
ASL $TMP1 
ASL $TMP1 
ASL STMP1 
MOVB = $TMP1,$VECT1+1 
{DIALOGUE TO INPUT DEVICE NUMBERS 


INC #~1 
BNE 13$ 
TYPE -CNSLO7 





FIRST TIME THRU ? 
;BR_IF NO 
:TYPE INPUT INSTRUCTIONS 


| 
} 
orcs ee 


“am 


VIN 





eg RMOS/3/2 FCTNL TST 3 
STANDALONE INPUT ROUTINES 


—pabababahun 
OWONAUSE 
— 
S 
— 
— 


007442 023727 
007450 001436 
007452 104401 
007456 023727 
007464 002430 


ee el ee ee ee ee ee a ed ed ed ed ed wd nd ed 
PUNIESSSESREA SS SMU SIBLRORONTS 
2 


SWNOo”O 
gggs 
g 
2 


001217 
001300 
071374 


001176 
001176 


070331 
000377 
006462 
001176 


001176 
001176 


001176 


001176 
071352 


001176 
177770 
071616 
000377 


D 6 
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000101 
001300 
000015 


000060 
000067 


000015 


000060 
000067 


001300 
001300 


13$: 
148: 


15$: 


16$: 


17$: 


18$: 


19$: 


$CRLF 
$DEVM 
_MSDRVS 
(SP)+,$TMP1 
STMP1.#°A 


eALL 
#377, SDEVM 
XSIZ 


STMP1,ACR 
17$ 

$TMP1 
STNPI .#*0 
$TMP1,#'7 
18$ 

17$ 


(SP)+,$TMP1 
CR 


° 


STMP1,R1 
#*C7,R1 


C 
ATNTAL (R1) , SDEVM m 


#377 ,$DEVM 
16$ 


- SCRLF 
XSIZ 


: CR=LF 
CLEAR DEVICE MAP 
:TYPE *DRIVE(S): ' 


3GET RESPONSE 
31S INPUT ''A’* ? 


NO 

7YES, TYPE '‘ALL'’ AND GO 

:SET DEVICE MAP FOR ALL DRIVES 
ZAUTO SIZE. 

: CARRIAGE RETURN ? 

SECHO RESPONSE 

:NUMBER < <0? 

;NUMBER > 7 ? 

NO 

S ILLEGAL INPUT 


GET RESPONSE 
CARRIAGE RETURN ? 


aT 

‘TYPE ', ' 
[ECHO RESPONSE 
“NUMBER < 0 ? 
‘YES 

“NUMBER > 7 ? 
[TYPE '* 2ILLEGAL INPUT"' 
sRETRY 

:R1 = DRIVE NUMBER 

, #SET DEVICE IN MAP 


*CR=LF 
[GO SIZE DEVICES 


SEQ 0068 





Ci 


STANDALONE I 


8 a cl aed cd ed ed eee ed ed 
WDNAULSWN—O” 
N SF 
Oo 


38 


1 007670 
22 007674 
23 007676 
007676 
24 007700 
007704 


007720 
25 007720 
26 007722 
27 007724 
007724 
007730 





105037 
005037 
005037 
004737 
012746 
012746 


071616 
000002 


044720 


007706 





E 6 
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000001 


000001 
000176 


sASSEMBLE TEST QUE FROM DEVICE MAP 
CMNSTART : 


2$: 


3$: 


SIZE FOR CLOCK 
JSR 


4$: 


37658: 
64$: 


5$: 
. SBTTL 


2$: 


V SDEVM,RO 3RO = DEVICE MAP 
MOV AMTSTQUE+2,R1 :R1 = ADDRESS OF FIRST ENTRY IN QUE 
MOV R1, TSTQUE + INITIALIZE gi TER TER 
MOV #1,R2 :R2 = DEVICE PO 
CLR R3 ;R3 = DEVICE NUMBER 
BIT R2,RO :1S ao DEVICE IN MAP ? 
BEQ 2s :NO_! 
MOV R3,(R1) YES = ENTER DEVICE NUMBER IN QUE 
MOVB ATNTBL(R3),1(R1);ENTER ATTENTION BIT IN QUE 
ADD #2,R1 ADVANCE ENTRY POINTER 
ASL Re sADVANCE DEVICE POINTER 
TSTB Re :DONE ALL DEVICES ? 
BEQ 3$ 3¥ 


INC R3 ADVANCE DEVICE NUMBER 
ENTER NEXT DEVICE 


BR 1$ 
CLR (R1) : TERMINATE TEST QUE 


PC,SIZCLK SEE IF CLOCK PRESENT 
5$ YES = CLOCK IS PRESENT 
EMT 
TYPE .65$ 22 TYPE ASCIZ STRING 
BR 4$ 2-GET OVER THE ASCIZ 
eASCIZ <CRLF>/PROG HLT/ 
HALT 43 PROGRAM HALT !! 


GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST arse 2cARE WE oy UNDER XXDP/ACT? 


BNE 66$ 7 BRANCH IF 
CMPB SENV,41 2 cARE WE RUNNING UNDER APT? 
BEQ ; ;BRANCH 


HIF YE 
CMP SWR ,ASWREG : 3 SOF TWARE SWITCH REG SELECTED? 
BNE 67$ CH I 
o—_ 678 3:GET SOFT-SWR SETTINGS 
MOVB #1,$AUTOB 32SET AUTO-MODE INDICATOR 


NOP READY TO START TEST 

TSTB $DEVM ANY DRIVES IN MAP ? 

BNE $ - 3BR IF YES 

TST arse zANY MONITOR PRESENT ? 

BNE 1$ BR IF YES 

JMP START JUMP TO STAR 

JMP SEOP ; RETURN CONTROL TO MONITOR 

CLRB STSTNM sRESET TEST NUMBER 

CLR STIMES 7 INITIALIZE ear OF ITERATIONS 
CLR CTLFG [CLEAR CONTROL=C FLAG 


JSR PC, ,STKINT 
MOV #PR6,~(SP) 
MOV #64$,-(SP) 


: INITIALIZE TTY 
PUT NEW PS ON STACK 
‘PUT NEW PC ON STACK 





CZRMOAO RMOS/3/2 FCTNL TST 3 


GET VALUE FOR SOFTWARE 
010042 000002 

004 
117737 
005037 


46 
47 010056 012737 
48 010064 


001003 
012737 
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SWITCH REGISTER 


;;POP NEW PC AND PS 


@TSTQUE,SUNIT  ;LOAD UNIT NUMBER 
MEDENB CLEAR MEDIA ENABLE 


; CLEAR MASSBUS Paice ve SELECT DRIVE AND DETERMINE THE LAST TRACK 
OF THE ROY PTAC STAN PES 


STRK yASSUME LAST TRACK FOR RMO2/3 = 
$BASE , RO ‘RO = UNIBUS ADDRESS 
WCLR,RMCS2(RO) CLEAR MASSBUS 
@TSTQUE ,RMCS2(ROS ;SELECT DEVICE UNDER TEST 
RMDT (ROS ,R2 7GET RMDT AND 
#177770,R2 ;SAVE DRIVE TYPE BITS 

7,R 71S IT AN RMOS ? 


$ :NO, must BE AN RMO2 OR RMO3 
HTAI6!TAZ,LSTRK ;YES==SET LAST TRACK = oe. 


ao 





CZRMOAO RMOS/3/2 FCTNL 
GET VALUE FOR SOF TWARE 


1 
2 


Oo 


ooCoOo COCOOCOCO 
2284 253559590495 
SSISSS SESEVSS 


o SOCCooO COCOOCO 


oo 
Se 


ooo 
RUD 


SS SS i SS SS 
ee 
¥SR +o 


and and aad and ad et a ed el od 
WONAUSWN—ODOONAUSW 
Sooooo°0coe0o oO 


ooo 
3 
So 


= 
mr 
FSF 


28 
29 010304 
30 
31 010310 
32 010314 
33 


010314 


010352 





012737 
004737 
000404 
000240 
104000 
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TST 3 
SWITCH REGISTER 


001226 


FREER ARERR EERE ERAREEEEHEEEEREERERREREEREREEKEREREEEE 


TATEST 1 


CONTROLLER ACCESS TEST 


FTAA AEA EEERAEEKREERERERERREEREEEEREEERERRKERKE 


ié11: 


3$: 


5$: 
7$: 


SCOPE 


ASTACK, SP 
SBASE ,RO 

TSTQUE ,R1 
#1,$TESTN 


R1 

ERRVEC ,=(SP) 
ERRVEC+2,~(SP) 
#3$,,ERRVEC 
#PR6, ERRVEC+2 


R1,RMCS1+1 (RO) 
RO) 


RMCS2(RO) 0) -Re 
RacRD)e R2 
(SP) +, ERRVEC+2 
(SP) +, ERRVEC 


(SP)+, (SP)+ 
(SP) +, ERRVEC+2 
es 


a42 
5$ 
START 


$SEOP 


sPOP STACK 
: sPOP sTAtk INTO ERRVEC 
STAND ALONE MODE ? 
zNO!! 
:YES-GO GET $BASE 
:GO TO END OF PASS HANDLER 


:S TEST 

SINITIALIZE pO ace 

ARI) = DEVICE BEING TESTED 

TEST NUMBER IN APT MAIL BOX 


3¢PUSH ERRVEC ON STACK 
3PUSH ERRVEC+2 ON STACK 


:MOVE HI BYTE TO RMCS1 
MOVE WORD COUNT REGISTER 


MOVE BUS ADDRESS REGISTER 
MOVE CONTROL STATUS REGISTER 
:MOVE DATA BUFFER 

POP STACK ware ERRVEC+2 


; ;POP STACK INTO ERR 
;NO BUS TIMEOUT OCCURRED 


INTO ERRVEC+2 


FERRER EEE EAE 


TEST 2 


SEAR ARR EEEEEEERAEREREEEEKEEEEREEEEEEEEEREEEEREEEEEREREKKKEKKEE 


téT2: 


DEVICE AVAILABLE TEST 


M#STACK, SP 
$BASE ,RO 

TSTQUE ,R1 
#2,$TESIN 


PC. CNTCLR 
2$ 


iSTAR T OF TEST 
INITIALIZE STACK POINTER 
:R BUS ADDR 


0 = S ESS 
3(R1) = DEVICE BEING TESTED 
7;SET TEST NUMBER IN APT MAIL BOX 


G0 ISSUE CONTROLLER CLEAR 
T F NO ER al 


¢; 
SEQ 0071 | 


en ame = 
CZRMOAO RMOS/3/2 FCTNL TST 3 MACRO VO3.01 11-APR-80 13:39:53 PAGE 18-1 ¢. 
T2 DEVICE AVAILABLE TEST SEQ 0072 TK 





10354 000137 010474 JMP 7$ :GO TO 7$ IF ERROR 
37 010360 2$: 
010 013746 000004 MOV ERRVEC ,=(SP) 3sPUSH ERRVEC ON STAC 
39 010364 013746 000006 MOV ERRVEC*2, “at 3 =PUSH ERRVEC 2 ON STACK 
40 010370 012737 010460 000904 MOV #5$,ERR 
41 010376 013737 000300 000006 MOV PR6, ERRVEC#2 
43 010404 016037 000000 001176 MOV RMCS1(RO),$TMP1 ;GET DVA STATUS 
44 010412 016037 000010 001174 MOV RMCS2(RO),$TMPO :GET NED STATUS 
45 010420 012637 000006 MOV (SP) +, ERRVEC#2 POP STACK INTO ERRVEC+2 
46 010424 012637 MOV (SP) +, ERRVEC ; sPOP sTAtK INTO ERRVEC 
47 010430 032737 010000 001174 BIT #NED ,STMPO :ONEXISTENT DEVICE ? 
0436 1402 BEQ 3$ sNO 
49 010440 104111 EMT 111 
50 010442 14 BR 7$ 
51 010444 032737 004000 001176 38: BIT A#DVA,STMP1 DEVICE AVAILABLE ? 
52 010452 001012 BNE 9$ sVES!! 
53 010454 104112 EMT 112 
3 010456 000406 BR 7$ 
56 010460 022626 5$: CMP (SP)+, (SP) + sADJUST STACK 
57 010462 012637 000006 MOV (SP) +, ERRVEC+2 POP STACK INTO ERRVEC+2 
58 010466 012637 000004 MOV (SP) +, ERRVEC : POP STACK INTO ERRVEC 
59 010472 104113 EMT 113 
60 010474 000137 037422 7$: JMP SEOSP 
44 010500 9$: 
63 FERRER EERE EERE EE 
ATEST 3 DRIVE TYPE TEST 
FREER EEEEEEEEEERAEEEEREEEEEEEEEREREEKRREKEREEE 
010500 1813: 
010500 000004 SCOPE SCOPE CALL 
010502 000240 NOP sSTART OF TEST 
010504 012706 001100 MOV MSTACK, SP INITIALIZE STACK POINTER 
010510 013700 001276 MOV SBASE , RO ;RO = UNIBUS ADDRESS 
010514 013701 001464 MOV TSTQUE ,R1 2(R1) = DEVICE BEING TESTED 
- 010520 012737 000003 001226 MOV #3, STESTN 7;SET TEST NUMBER IN APT MAIL BOX 
65 010526 004737 053604 JSR PC,CNTCLR :GO ISSUE ao nkan CLEAR 
010532 000404 BR 2$ :G0 TO 2$ I ERROR 
010534 000240 NOP RETURN HERE TF ERROR 
010536 104000 EMT ERROR NUMBER DEFINED BY SUBROUTINE 
66 Rigeee 000137 010676 98 JMP 4$ :GO TO 4$ IF ERROR 
67 010544 112737 000026 001522 MOVB #RMDT , GET INX SETUP GET INDEX TABLE 
010552 112737 000200 001523 MOVB #200,GETINX+1 ;SETUP TERMINATOR BYTE 
010560 012737 010702 001362 MOV #S$ ,RMDTI SET RMDT INPUT BUFFER = 5$ 
010566 004737 044230 JSR PC,GET >GO READ RMDT VIA GET SUBROUTINE 
010572 000402 BR 3$ G0 TO 3$ IF NO ERROR 
010574 000240 NOP RETURN HERE IF ERROR 
68 010576 104000 EMT zERROR DEFINED BY GET SUBROUTINE 
69 010600 022737 020024 001362 3$: CMP ASNGPRT ,RMDTI ;SINGLE PORT RMO3 ? 
70 010606 001435 BEQ 5$ sves i: 
71 010610 022737 024024 001362 CMP AMDULPRT,RMDTI ;DUAL PORT RMO3 ? 
010616 BEQ 5$ sves !! 


87 
88 010676 
89 010702 
90 


91 


010702 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 





022737 
Bo 5968 
022737 
001421 
022737 

5 
012737 


012737 
104114 


000137 


012737 


004737 
154130 


; RMOAO RMO5/3/2 FCTNL TST 3 
DRIVE TYPE TEST 


020025 
024025 


020027 
024027 


020024 
024024 


037422 





I 
MACRO VO3.01 11-APR-80 13:39:53 PAGE 12-2 


001362 
001362 


061362 
001362 


001176 
001200 


COMNMAAL 


4$: 
5$: 


STEST 4 
7814: 


cP #SNGPRT !B1TO,RMDTI : SINGLE PORT RMO2 ? 
CMP ADULPRT 'BITO,RMDTI ‘DUAL PORT RMO2 ? 
BEQ 5$ SYES !! 
cop #SNGPRT !B1T1!B1T0 ,RMDTI : SINGLE PORT RMOS ? 
CMP #DULPRT!BIT1!BITO,RMDTI :DUAL PORT RMOS ? 
BEQ 5$ 
MOV #SNGPRT,STMP1  ;LOAD ACCEPTABLE VALUES 
MOV #DULPRT . $TMP2 
EMT 114 
JMP SEOSP :GO TO SUBPASS HANDLER. 
FRA ARERR REE REECE 
WRITE, READ ZEROS 
FREAK EEE EERE 
SCOPE ZSCOPE CALL 
NOP :START OF TEST 
MOV ASTACK, SP ; INITIALIZE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 (RV) = DEVICE BEING TESTED 
MOV #4, $TESTN TEST NUMBER IN APT MAIL BOX 


FREER AERA EREREREKEREEREEEEREEEEEEEREEEREERKEEKKEREE 


: LOOP #1 


10$: 


PREPARE DEVICE FOR TEST 
JSR 45 


FORMAT ,WRITE ,READ 


TSTPRP PREPARE DEVICE FOR TEST 

-WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY oF seu AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
2PACK ACKNOWLEDGE IF VOLUME NOT VALID 
s VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'’ OR ‘PIP’ IS SET 
: VERIFY RECALIBRATION 

BR 20$ GO TO 20$ IF NO ERROR 
RETURN A, IF ERROR 

EMT ERROR # DEFINED BY TSTPRP SUBROUTINE 

JMP 350$ :G0 TO 35U$ IF ERROR 

55on PARAMETERS AND GENERATE DATA BUFFER 

MOV #0 ,,RMDCO CYLINDER = 0 

MOV #0 ,,RMDAO ; TRACK = 0, SECTOR = 0 

MOV #BUF ONE , RMBAO BUS ADDRESS 

MOV 4-258. ,RMWCO ze + 256. WORDS (2°S COMP) 

MOV #FMT16,RMOFO 316 BIT FORMAT 

MOV #WH!GO,RMCS10 WRITE HEADER AND DATA COMMAND 


J 
ste RMO5/3/2 FCTNL TST 3 MACRO V03.01 11-APR-80 13:39:53 PAGE 18-3 





WRITE, READ ZEROS SEQ 0074 
110 :VERIFY THAT SECTOR IS NOT BAD 
011014 004737 041416 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
011020 000405 BR 25$ :GO0 TO 25$ IF NO ERROR 
011022 104401 070230 TYPE  ,SCTMSG :TYPE BAD SECTOR MESSAGE 
011026 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
a 911030 000137 011710 va JMP 350$ :GO TO 350$ IF ERROR 
112 011034 012737 071730 001174 MOV #ZEROS ,STMPO ; STARTING ADDRESS OF PATTERN 
113 011042 012737 000001 001176 MOV #1,$TMP1 RANGE OF PATTERN 
114 011050 737 043344 JSR PC; GENBUF 60 GENERATE BUFFER FOR FORMAT 
116 ;SETUP PARAMETERS AND EXCUTE COMMAND 
117 011054 012702 001551 MOV APUTINX,R2 sR2 = BYTE ENTRY POSITION 
118 011060 112722 000034 MOVB  #RMDC, (R2)+ 
119 011064 112722 000006 MOVB  #RMDA.(R2)+ 
120 011070 112722 MOVB  #RMBA.(R2)+ 
121 011074 112722 000002 MOVB  #RMWC.(R2)+ 
122 011100 112722 000032 MOVB  #RMOF.(R2)+ 
123 011104 112722 000000 MOVB  #RMCS1, (R2)+ 
124 911110 112712 000200 a MOVB #200, (R2) : TERMINATE TABLE 
126 011114 004737 044500 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
011120 000404 BR 40$ :GO TO 40$ IF NO ERR 
011122 000240 NOP SRETURN HERE IF E RROR 
011124 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
011126 000137 011710 JMP 350$ :GO TO 350$ IF ERROR 
127 011132 40$: 
129 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
nae 011132 004737 044144 JSR PC,GETSTS 3G0 TO GETSTS SUBROUTINE 
131 ;WAIT FOR COMMAND TO COMPLETE 
nes 011136 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
133 :GO GET REGISTER STATUS 
134 011142 004737 044230 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
011146 000404 BR 50$ :60 TO 50$ IF NO ERROR 
011150 000240 NOP ZRETURN HERE IF ERROR 
011152 104000 EMT TERROR # DEF INED BY GET SUBROUTINE 
011154 000137 011710 JMP 350$ :GO TO 350$ IF ERROR 
135 011160 50S: 
137 ; VERIFY RESULTS OF WRITE COMMAND 
138 011160 004737 057742 JSR PC,DTASTS 7GO VERIFY RESULTS OF DATA TRANSFER 
011164 000405 BR 60$ :60 TO 60$ IF NO ERROR 
011166 000240 NOP [RETURN HERE IF ERROR 
011170 104000 EMT TERROR " DEF INED BY DTASTS SUBROUTINE 
011172 0047 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
011174 000137 011710 JMP 350$ :GO TO 350$ IF ERROR 
139 011200 60$: 
141 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 
142 011200 012737 011210 001124 MOV #70$,$LPERR 
143 011206 000410 BR 80$ :SKIP TO WRITE OPERATION 
145 Ay o RARER EAA ERERERERERAEAAREE RARER REEEAEEARRERAR EERE 


146 :LOOP #2 WRITE ,READ 
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WRITE, READ ZEROS 


oooce 
a3 Sa 
Ha 
SUNN 
SENSO 


RONBRE RASS 


=) 


AS Ss SS 2 os ss oS HH I HY SS 
SLETLAVTISSSVRALUN 


an ond end 
Soooceo COOCOOCOOOOOoCO 
abhdatababad shabadbabababababad abad ad 


N 
SIX AY WSs 
So 
— 
—S 
8 


011334 


ee ee 
Soooo°o°o 
ad nd ad ad od ad 


Say 


004737 
154130 


004737 
000404 
000240 
104000 
000137 


004737 
004737 
004737 
000404 
000240 
104000 


000137 


004737 
000405 


040472 


011710 


011710 


044144 


045042 


044230 


011710 


045226 


K 6 
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70$: 
;PREPARE DEVICE FOR TEST 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
“WORD 154130 S TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 
'VERIFY CONTROLLER CLEAR 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWL EDGE 
SRECALIBRATE IF ‘'SkI'' OR ‘PIP’ IS SET 
[VERIFY RECALIBRATION 
BR 80$ :GO TO 80$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ 'GO TO 350$ IF ERROR 
80$: 
sSETUP PARAMETERS AND EXCUTE COMMAND 
MOV ,RMBAO ;MOVE MEMORY ADDRESS 
MOV #-256.,RMWCO |; CHANGE WORD COUNT | 
MOV HD !GO;RMCS10 ;WRITE DATA COMMAND 
MOV #PUTINX,R2 [LOAD PUT REGISTER INDEX TABLE 
MOVB = #RMDA, (R2)+ 
MOVB  #RMDC.(R2)+ 
MOVB  &#RMOF.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB  #RMWC. (R2)+ 
MOVB  #RMCS1, (R2)+ 
MOVB #200, (R2)+ ; TERMINATE TABLE 
JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 130s :GO0 TO 130$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ 760 TO 350$ IF ERROR 
130$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC, GETSTS 360 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
3GO GET REGISTER STATUS 
JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
146$ :GO TO 140$ IF NO ERROR 
SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
os JMP 350$ :GO TO 350$ IF ERROR 


VERIFY RESULTS OF WRITE COMMAND 
JSR PC,PRIERR 


BR 156$ 


‘3 CHECK FOR ye ERRORS 
GO TO 150$ IF NO ERROR 


SEQ 0075 


011364 
11366 
011370 
011372 
181 011376 
182 011376 
011402 
011404 
011406 
011410 
011412 
183 011416 
184 011416 
011422 
011424 
011426 
011430 
011432 
185 011436 
186 
187 
188 011436 
189 011444 
190 
191 
192 
193 
194 011446 
195 
196 
197 011446 
011452 
011454 
011456 
011460 
011462 
198 011466 
199 
200 
201 011466 
202 011466 
203 011474 
204 011502 
205 011506 
206 011512 
207 011516 
208 011522 
209 011526 
210 011532 
211 011536 


012737 
000410 


004737 
154130 


I IOOO 
eS 1 2 I 





ila RMO5/3/2 FCTNL TST 3 
WRITE, READ ZEROS 


000240 
000 


011710 
057742 


011710 
046060 


011710 


011446 


040472 


011710 


107324 
000071 
001551 


001124 


150$: 


160$: 


180$: 


L 
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PC, a(SP)+ 
356$ 


PC ,DTASTS 
160$ 
PC,a(SP)+ 
350$ 
PC, SECERR 


180$ 


PC, a(SP)+ 
350$ 


; CHANGE nf ADDRESSES 


#190$ ,,SLPERR 
200$ 





RETURN HERE IF ERR 
+ ERROR # e FOR ton BY OPRIERR SUBROUT INE 


BACK E ERROR CHECKS 
60 TO 350$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 
+60 TO 160$_ IF NO ERROR 


;RETURN HERE IF ERROR 
ZERROR | Fea rom BY DTASTS SUBROUTINE 
:GO BA OR MORE ERROR CHECKS 
:GO0 TO “S508 IF ERROR 
GO CHECK ‘a3 ey ERRORS 
:G0 TO 180$ IF NO ERROR 
; RETURN HERE iF ERROR 
ERROR # Pha pie BY SECERR = 
E ERROR CHECKS 


7GO BACK FOR MORE E 
:GO TO Ssos IF ERROR 


:SKIP TO NEXT OPERATION 


SF ARERR EEEEEEEKEEEEEREREREKEEREREKEREREEEREREEKERE 


;LOOP #3 
190$: 


READ 


3 PREPARE Ps i FOR TSTPRP 


BR 

NOP 

EMT 

JMP 
200$: 


PC,T 
1541 


200$ 


350$ 


sPREPARE DEVICE FOR Ns 4 
: TASK DESCRIPTOR AS 


FOLLOWS: 
SELECT DEVICE & VERIFY a i 


CLEAR CONTROLLER & SELECT 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF ‘‘SkI'' OR ‘PIP’' IS SET 


VERIFY RECAL IBRATION 
;GO0_ TO 200$ IF NO ERROR 
sRETURN HER 


:R E IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 


3G0 TO 350$ IF E 


le PARAMETERS AND EXCUTE COMMAND 





WBUF TWO+4 , RMBAO 
wus 


APUTINX,R 

#RMDA, (R2)+ 
ARMOF , (R2)+ 
MRMDC, (R2)+ 
ARMBA, (R2)+ 
HRMWIC , (RZ) + 


#RMCS1, (R2)+ 


#200, (R2) 





: CHANGE MEMORY ADDRESS 
[READ DATA COMMAND 
LOAD PUT REGISTER INDEX TABLE 





SEQ 0076 


“am 


M 6 
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am 


WRITE, READ ZEROS SEQ 0077 

212 

213 011542 004737 044500 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
011546 000404 BR 250$ [G0 TO 250$ IF NO ERROR 
011550 000240 NOP RETURN HERE IF ERROR 
011552 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
011554 000137 011710 JMP 350$ :G0 TO 350$ IF ERROR 

314 011560 250S: 

216 :SETUP GET INDEX TABLE <1 READ ALL REGISTERS 

— 011560 004737 044144 JSR PC,GETSTS 3G0 TO GETSTS SUBROUTINE 

218 ;WAIT FOR COMMAND TO COMPLETE 

an 011564 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

220 ;GO GET REGISTER STATUS 

221 011570 004737 044230 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
011574 000404 260$ :60 TO 260$ IF NO ERROR 
011576 000240 NOP “RETURN HERE IF ERROR 
011600 1040090 EMT TERROR # DEFINED BY GET SUBROUTINE 
011602 000137 011710 JMP 350$ :GO TO 350$ IF ERROR 

322 011606 260$: 

c 

224 ;VERIFY RESULTS OF READ COMMAND 

225 011606 004737 045226 JSR PC,PRIERR ;GO CHECK FOR rah the ERRORS 
011612 000405 276$ :GO TO 270$ IF NO ERROR 
011614 000240 NOP * RETURN HERE IF ERROR 
011616 104000 EMT sERROR # DEFINED BY PRIERR SUBROUTINE 
011620 004736 JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
011622 000137 011710 JMP 350$ :G0 TO 350$ IF ERROR 

226 011626 270$: 

227 011626 004737 057742 JSR PC, ,DTASTS ‘3 VERIFY ers OF DATA TRANSFER 
011632 000405 BR 280$ TO 280$ IF NO ERROR 
011634 000240 NOP RETURN HER x, iF ERROR 
011636 104000 EMT ; ERROR # DEFINED BY DTASTS SUBROUTINE 
011640 004 JSR PC,a(SP)+ BACK RE CHECKS 
011642 000137 011710 JMP 350$ 760 TO Ssos IF 

228 011646 280S: 

29 011646 004737 046060 JSR PC, SECERR 3GO CHECK FOR SECONDARY ERRORS 
011652 000405 BR 300$ 3G0 TO 300$ IF NO ERROR 
011654 000240 NOP ZRETURN HERE IF ERROR 
011656 104000 EMT TERROR # DEF INED BY SECERR SUBROUTINE 
011660 004 JSR PC, a(SP)+ 7G0 BACK FOR MORE CHECKS 
011662 000137 011710 JMP 350$ [G0 TO 350$ IF ERROR 

230 011666 300$: 

232 3:GO VERIFY DATA 

233 011666 004737 043602 JSR PC, CMPBUF 3GO COMPARE WRITE, READ DATA BUFFERS 
011672 106320 D  BUFONE+4 i STAR TING ADDRESS OF WRITE BUFFER 
011674 107324 WORD  BUFTWO+4 ARTING ADDRESS OF READ BUFFER 
011676 000404 BR 310$ :GO TO sis ir NO ERROR 
011700 000240 NOP SRETURN HE RE iF ERROR 
011702 104 EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
011704 000137 011710 JMP 350$ :GO TO 350$ IF ERROR 

54 011710 310$: 

236 011710 350$: 


ED 


N 
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C2 
15 WRITE, WRITE CHECK ZEROS SEQ 0078 | 
238 sé SEAR ARERAEEHERRERERREREEAEREREREEEREERERREERREEEEAEREEEEEEEREREE 
S*TEST 5 WRITE, WRITE CHECK ZEROS 
: : : ERRERRERARRERAREEER AREER EERRERRERERERRRREERRRER RRR ER EERE 
011710 S15: 
011710 SCOPE ; 
011712 000240 NOP ‘START OF TEST 
011714 012706 001100 MOV ASTACK, SP SINITIALIZE STACK POINTER 
011720 013700 001276 MOV S$BASE ,RO 7RO = UNIBU RESS 
011724 013701 0014 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
we 011730 012737 000005 001226 MOV #5, S$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
240 3 REAR RHRAAEREREAEAEEERAEEEREREEEREEREEEREEEREEEERKKEREEKEKEKKKEE 
341 :LOOP #1 FORMAT ,WRITE,WRITE CHECK DATA 
343 011736 10S: 
245 ;PREPARE DEVICE FOR TEST 
246 011736 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
011742 154130 “WORD 154130 ZTASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER . SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWL E DGE 
SRECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
‘VERIFY RECALIBRAT ION 
011744 000404 BR 208 :GO TO 20$ IF NO E 
011746 000240 NOP RETURN HERE IF ERROR 
011750 104000 EMT TERROR # DEF INED BY TSTPRP SUBROUTINE 
a 011752 000137 012666 JMP 350$ :G0 TO 350$ IF ERROR 


248 gLOAD PARAMETERS AND GENERATE DATA BUFFER 
249 011756 20$ 


250 011756 012737 000000 001444 MOV #0.RMDCO 3 CYLINDER =0 
251 011764 012737 000000 001416 MOV #0.RMDAO STRACK = 0, SECTOR = 0 
252 011772 012737 106314 001414 MOV #BUF ONE , RMBAO [BUS ADDRESS 
253 012000 012737 177376 001412 MOV #-258. ,RMWCO t2 + 236. WORDS (2°S COMP) 
254 012006 012737 010000 001442 MOV #FMT 16, RMOFO :16 BIT T 
355 012014 012737 001410 MOV WH! GO. RMCS10 [WRITE HEADER AND DATA COMMAND 
257 ;VERIFY THAT SECTOR IS NOT BAD 

012022 004737 041416. JSR PC ,BADSCT ZCALL BAD SECTOR MODULE 

012026 000405 BR 258 7GO0 TO 25$ IF NOE 

012030 104401 070230 TYPE  ,SCTMSG [TYPE BAD SECTOR MESSAGE 

012034 104000 EMT SERROR # DEFINED BY BADSCT SUBROUTINE 
vm 012036 000137 012666 se JMP 350$ 7GO TO 350$ IF ERROR 
259 012042 012737 071730 001174 MOV #ZEROS ,STMPO STARTING ADDRESS OF PATTERN 
260 012050 012737 000001 001176 MOV #1,$TMP1 SRANGE OF PATTERN 
261 012056 004737 043344 JSR PC. GENBUF [GO GENERATE BUFFER FOR FORMAT 
263 ;SETUP PARAMETERS AND EXCUTE COMMAND 
264 012062 012702 001551 MOV MPUTINX,R2 :R2 = BYTE ENTRY POSITION 
265 012066 112722 000034 MOVB  #RMDC, (R2)+ 
266 012072 112722 000006 MOVB = #RMDA. (RO) + 
267 012076 112722 000004 MOVB = #RMBA‘ (R2)+ 
268 012102 112722 000002 MOVB = #RMWC. (R2)+ 


Am 


$ 
g 
g 


SEVYSRVVAWD 


294 
295 012216 
296 


297 
298 012216 
012222 


012224 
012226 
012230 
012232 


11272 

11272 

112712 
004737 
000404 
000240 
104000 
000137 


004737 
004737 
004737 
000404 
000240 
104000 
000137 


! RMOAO RMOS/3/2 FCTNL TST 3 
WRITE, WRITE CHECK ZEROS 


000032 
000000 
000200 
044500 
012666 


044144 
045042 


044230 
012666 


057742 
012666 


012216 


040472 


012666 


30$: 


40$: 


8 7 
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#RMOF 
mest Mee 
#200, (R2) ; TERMINATE TABLE 


PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
40$ :60 TO 40$ IF NO ERROR 
RETURN HERE IF ERROR 


ZERROR # DEFINED BY PUT SUBROUTINE 
350$ GO TO 350$ IF ERROR 


; SETUP wt ® INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS :GO TO GETSTS SUBROUTINE 


WAIT or ay Fe TO COMPLETE 


GO GET REGISTER STATUS 
JSR PC,GET 


PC, TIMOUT GO TO TIMOUT SUBROUTINE 


GO READ ri we ei WITH GET SUBROUTINE 
NO ERROR 


:GO TO 50$ IF 
:RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ ‘GO TO 350$ IF ERROR 
50$: 
:VERIFY RESULTS OF WRITE COMMAND 
JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR :60_TO 60S. IF NO_ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
JMP 350$ :GO TO 350$ IF ERROR 


60S: 


;MOVE ot pean TO = OPERATION 


#70$,$LPERR 
80$ ;SKIP TO WRITE OPERATION 


Z2 REE EEEEEKEEEAEREEEEEREEEEEKEAEEREREKEEREREEEEEEREREEEEREERREREKEKKE 


WRITE WRITE CHECK DATA 


PREPARE DEVICE FOR TEST 
JSR C, 


;LOOP #2 

70$: 
. WORD 
BR 
NOP 
EMT 
JMP 


TSTPRP :PREPARE DEVICE FOR TEST 
30 :TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR 
ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF "SKI" OR “PIP'’ IS SET 
iVERIFY RECALIBRATI 
£60 10. 808 1F_NO ERO 
;RETURN HERE IF ERROR 
ZERROR # DEFINED BY TSTPRP SUBROUTINE 
3508 G0 TO 350$ IF ERROR 


80$ 


C2 
7 


T5 


rare rie 3/ 


S23 2228 
ab and ad an aa od 
o0o00 COCCOoOO 


USWN—Oo 
p= Sa PP 


012420 
330 012424 


— 


2 
WR 


AS Ss ss Ss es 


012666 
057742 


012666 
046060 


80$: 


C 7? 
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ZEROS 


;SETUP PARAMETERS AND EXCUTE COMMAND 


120$ 


130$: 


3;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 


:GO GET 


140$: 
; VERIFY 


150$: 


160$: 


JSR PC, TIMOUT 

REGISTER STATUS 

JSR PC, GET 
140$ 

NOP 

EMT 

JMP 350$ 

RESULTS OF WRITE COMMAND 

JSR PC PRIERR 
150$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350$ 

JSR PC .DTASTS 

BR 160$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350$ 

JSR PC, SECERR 
180$ 

NOP 

EMT 

JSR PC,a(SP)+ 


MBUF ONE +4 , RMBAO 


#200, (R2)+ 


PC PUT 
136$ 


350$ 





; CHANGE MEMORY ADDRESS 


CHANGE WORD ao! 
WRITE DATA COMMAND 
[LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 


:GO WRITE a th aa che WITH PUT SUBROUTINE 
O 130$ IF NO ERROR 


{RETURN HERE IF ERROR 
TERROR # DEFINED BY PUT SUBROUTINE 


GO TO 350$ IF ERROR 


:GO TO TIMOUT SUBROUTINE 


3GO READ REGISTER(S) WITH GET SUBROUTINE 
NO ERROR 


:60 TO 140$_ IF 


;RETURN HERE IF 


ERROR 
ERROR # DEFINED BY GET SUBROUTINE 


GO TO 350$ IF ERROR 


E IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 


BACK FOR 
$60 TO 350$ IF E 


MORE ERROR C 
ERROR 


CHECKS 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 160$ IF NO ERROR 

RETURN HERE IF ERROR 

; ERROR . pee ee BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
7GO TO 350$ IF ERROR 


:GO CHECK FOR “NO ERROR ERRORS 


:G0 TO 180$ 7 


[RETURN HERE I 


F ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 


GO BACK FOR MORE ERROR CHECKS 


SEQ 0080 


ny 


0 7 
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5 WRITE, WRITE CHECK ZEROS SEQ 0081 | 
012440 000137 012666 JMP 350$ :GO TO 350$ IF ERROR 

336 012444 180$: 

334 : CHANGE LOOP ADDRESSES 

335 012444 012737 012454 001124 MOV P1908, SLPERR 

$39 012452 000410 BR 2008 SKIP TO NEXT OPERATION 

338 STARA EERE REE 

4 ;LOOP #3 WRITE CHECK DATA 

s3 012454 190$: 

343 ; PREPARE P FOR TEST 

344 012454 004737 040472 PC,TSTPRP sPREPARE DEVICE FOR TEST 

012460 154130 “ORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
7CLEAR CONTROLLER & SELECT DEVICE 


;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 

ZRECALIBRATE IF ‘'SKI'’ OR ‘PIP'' IS SET 
VERIFY RECALIBRATION 


012462 000404 BR 200$ 7GO TO 200$ IF NO ERROR 
012464 000240 NOP SRETURN HERE IF ERROR 
012466 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
012470 000137 012666 JMP 350$ :GO TO 350$ IF ERROR 

35 012474 200$: 

347 :SETUP PARAMETERS AND EXCUTE COMMAND 

348 012474 2408: 

349 012474 012737 000051 001410 MOV #WCD!GO,RMCS10 :WRITE CHECK DATA DATA COMMAND 

350 012502 012702 001551 MOV APUTINX,R2 ;LOAD PUT REGISTER INDEX TABLE 
012506 112722 000006 MOVB = ARMDA, (R2)+ 

352 012512 11 000032 MOVB = #RMOF . (R2) + 

353 012516 11 000034 MOVB = ARMDC. (RO) + 

354 O12 112722 000004 MOVB  #RMBA. (R2)+ 

355 012526 112722 000002 MOVB  #RMWC. (RO)+ 

356 012532 112722 000000 MOVB apt (R2)+ 

357 012536 112712 000200 MOVB #200, (R2) 

359 012542 004737 044500 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
012546 000404 BR 250$ :GO TO 250$ ERROR 
012550 000240 NOP RETURN MERE! iF NP RROR 
012552 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
012554 000137 012666 JMP 350$ :GO TO 350$ IF ERROR 

360 012560 250$: 

362 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

a 012560 004737 044144 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 

364 ;WAIT FOR COMMAND TO COMPLETE 

al 012564 604737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

366 :GO GET REGISTER STATUS 

367 012570 004737 044230 JSR PC, GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
012574 000404 BR 260$ 'GO TO 260$ IF NO ERROR 
012576 000240 NOP SRETURN HERE IF ERROR 





Am 


CZRMOAO RMOS/3/2 FCTNL TST 3 
5 WRITE, WRITE CHECK ZEROS 


012600 
012602 000137 012666 


370 
371 015008 004737 045226 


12612 000405 
012614 000240 
012616 104000 
004736 
012622 000137 012666 
372 012626 
373 012626 004737 057742 
012632 000405 
12634 000240 
012636 104000 
012640 004736 
2642 000137 012666 
374 012646 
375 012646 004737 046060 
012652 000405 
012654 000240 
012656 104000 
012 004736 
012 000137 012666 
376 012666 
378 012666 
012666 
012666 
2670 
012672 012706 001100 
012676 013700 001276 
012702 013701 001464 
012706 012737 000006 
381 
382 
383 


384 
385 012714 
386 


387 
388 012714 004737 040472 
012720 154130 


012 000404 
012724 000240 


E 7 
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001226 


ERROR # DEFINED BY GET SUBROUTINE 
:GO TO 350$ IF ERROR 


+4 CHECK FOR PRIMARY ERRORS 
Ap 270$ IF NO ERROR 


RET IF ERROR 

ERROR ’ ed BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:GO TO 350$ IF ERROR 


GO VERIFY eins OF DATA TRANSFER 
360 TO 280$ IF NO ERROR 

; RETURN HERE. IF ERROR 

ERROR 4 Pin tae BY DTASTS SUBROUTINE 
:GO BACK E ERROR CHECKS 

:GO TO 5508" IF ERROR 


:GO CHECK FOR en ERRORS 
:GO_TO 300$ IF NO ERROR 


RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 350$ IF ERROR 


SARA EEREREEREREEEEEEREREREREKRREEREEKEEKEEEKEEE 


WRITE, WRITE CHECK ZEROS W/ WCE ERROR 


SAAR ARERR 


SCOPE CALL 
zSTART OF TEST 


EMT 
JMP 350$ 
260$: 
; VERIFY RESULTS OF WRITE CHECK COMMAND 
JSR PC ,PRIERR 
BR 270$ 
NOP 
EMT 
JSR PC, a(SP)+ 
JMP 350$ 
2708: 
JSR PC DTASTS 
BR 280$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
280S: 
JSR PC, SECERR 
BR 300$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
300$: 
350$: 
STEST 6 
TST6: 
SCOPE 
MOV MSTACK, SP 
MOV E,RO 


SBASE, 
MOV TSTQUE ,R1 


MOV #6, STESTN 


E 
INITIALIZE oe POINTER 
:RO_ = UNIBUS ADDRES 

3(R1) = DEVICE BEING TESTED 


7;SET TEST NUMBER IN APT MAIL BOX 


FE AAA EEEREKEEEEEEEEREEEEEEREREEREEREEREKEKKEKRE 


;LOOP #1 

10$: 

;PREPARE DEVICE FOR TEST 
JSR PC, TSTPRP 
‘ 0 
BR 20$ 
NOP 


FORMAT ,WRITE ,WRITE CHECK DATA 


PREPARE DEVICE FOR TEST 

2 TASK DESCRIPTOR AS FOLLOWS: 

>SELECT DEVICE & VERIFY DEVICE AVAILABLE 
EAR CONT DEVICE 


CLEAR CONTROLLER & SELECT 
:VERIFY CONTROLLER CLEAR OPERAT 
3PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
RECALIBRATE IF ‘'SKI'’ OR ‘PIP'’ IS SET 
:VERIFY_RECALIBRAT ION 

0 20$ IF NO ERROR 
TRETURN HERE IF ERROR 


SEQ 0082 


am 


CZRMOAO iach 


SS 
RRSSRS 


and ax and 
ANS 


000 
000137 
012737 
012737 
004737 


2702 
2736 


A320 
SSNN 
MmrMNn 
mnron 


kd ed od od wd 
mronror 


2712 


004737 
000404 


000240 
104000 
000137 


004737 
004737 
004737 
000404 
000240 
104000 


000137 


004737 
000405 
000240 





TST 3 


014062 


041416 
070230 
014062 
071730 
000001 
043344 
001551 
000034 
000002 
000032 
000000 
000200 
044500 
014062 


044144 
045042 


044230 
014062 


057742 





SONNE 


GO EGT REGISTER STATUS 
JSR PC,GET 


MACRO V03.01 11=APR~80 13:39:53 PAGE b-12 
HECK ZEROS W/ WCE ERROR 


EMT :ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
LOAD PARAMETERS AND GENERATE DATA BUFFER 
MOV #0,RMDCO i CYLINDER = 0 
MOV #0. RMDAO RACK = ale SECTOR = 0 
MOV #BUF ONE , RMBAO ‘Bus ADDRESS 
MOV #-258. , RMWCO :2 + 236. WORDS (2°S COMP) 
MOV #FMT16,RMOFO 316 BIT FORMAT 
MOV #WH!GO,RMCS10 * WRITE HEADER AND DATA COMMAND 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
BR 25$ :GO TO 25$ IF NO ERROR 
TYPE ,SCTMSG ‘TYPE BAD SECTOR MESSAGE 
EMT ZERROR # DEFINED BY BADSCT SUBROUTINE 
pl JMP 350$ :GO TO 350$ IF ERROR 
MOV AZEROS , STMPO ;STARTING ADDRESS OF PATTERN 
MOV #1,$TMP1 SRANGE OF PATTERN 
JSR PC. GENBUF [GO GENERATE BUFFER FOR FORMAT 
MOV #PUTINX,R2 ;R2 = BYTE ENTRY POSITION 
MOVB  #RMDC, (R2)+ 
MOVB  #RMDA.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB = #RMWC.(R2)+ 
MOVB  #RMOF.(R2)+ 
MOVB = #RMCS1, (R2)+ 
308 MOVB #200, (R2) ; TERMINATE TABLE 
JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ :G0 TO 40$ IF NO ERROR 
NOP * RE TURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
40$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 7GO0 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOU :GO TO TIMOUT SUBROUTINE 


3GO READ REGISTER(S) WITH GET SUBROUTINE 
50$ :GO TO 50$ IF NO ERROR 
SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ 'GO TO 350$ IF ERROR 


50$: 


:VERIFY RESULTS OF WRITE COMMAND 
JSR PC DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
60$ TO 60$ IF NO ERR 
‘RETURN HERE IF ERROR 


“~+am 


435 
436 013174 
437 


438 
439 013174 
013200 


01 
440 013214 
441 


443 013214 
444 013214 
445 013222 
446 013230 


454 013272 
455 


456 013276 
013302 
013304 

3306 

013310 

457 013314 
458 


459 
013314 
60 


461 
> 013320 


004737 
154130 


2722 
2722 


004737 
000404 
000240 
104000 
000137 


004737 


004737 


TST 3 


013174 


040472 


014062 


044144 


045042 





7 
MACRO VO3.01 11-APR-80 13:39:53 Pace 12-13 
HECK ZEROS W/ WCE ERROR 


001124 


60S: 


EMT 
JSR 
JMP 


PC,a(SP)+ 
356$ 


; ERROR 4 page BY DTASTS SUBROUTINE 
BACK MORE ERROR CHECKS 
:60 TO $508" IF ERROR 


MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #70$,$LPERR 


SKIP TO WRITE OPERATION 


FARA EEEREREEEREEEEKEEKREKKEKEEE 


: LOOP #2 


70$: 


WRITE ,WRITE CHECK DATA 


; PREPARE Pai Ae TEST 


80$: 


- WORD 


BR 


NOP 
EMT 
JMP 


TSTPRP 
54130 


80$ 


350$ 


PREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 


:PA KNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
; VERIFY SS at ao cide 


3 E IF ER 
SERROR # DEFINED ae TSTPRP SUBROUTINE 
:GO TO 350$ IF ERROR 


SETUP PARAMETERS AND EXCUTE COMMAND 


120$ 


130$: 


#-256. ,RMWCO 
WBUF ONE +4 , RMBAO 


#200, (R2)+ 


PC PUT 
130$ 


350$ 


: CHANGE WORD COUNT 
: CHANGE MEMORY ADDRESS 
:WRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 
:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
O 150$ IF NO ERROR 


:G0 TO 13 
jy Mh ng HERE IF ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 350$ IF ERROR 


; SETUP =. INDEX TABLE TO READ ALL REGISTERS 


WAIT ho” “ettee TO COMPLETE 





PC,GETSTS 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


SEQ 0084 


am 


CZRMOAO niie Gn FCTNL 
T6 WRITE 


013416 
473 013422 
ary 
475 
476 013422 
477 
478 
479 
480 
481 013430 
482 
483 013430 
484 013434 
485 


486 
487 013440 
013444 


013446 
013450 
013452 
013454 
488 013460 





012737 


012703 
050337 


004737 
154130 


TST 3 
CHECK ZEROS W/ WCE ERROR 


044230 
014062 


045226 


014062 
057742 


014062 
046060 


014062 


013430 


000001 
107316 


040472 


014062 





7 
MACRO VO03.01 11-APR-80 13:39:53 PAGE 12-14 


001124 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


G G60 READ REGISTER(S) tilt GET SUBROUTINE 
140$ :GO0 TO 140$ IF NO ERR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 3508 :GO TO 350$ IF ERROR 
140$: 
:CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC, PRIERR 7GO CHECK FOR PRIMARY ERRORS 
BR 150$ :60 TO 150$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ERROR “ DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
a JMP 350$ :GO TO 350$ IF ERROR 
JSR PC ,DTASTS 60 VERIEY RESULTS OF DATA TRANSFER 
BR 160$ :G0 T TO 11608 IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT 4 ERROR “ DEF INED BY DTASTS SUBROUT INE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
es JMP 350$ :GO0 TO 350$ IF ERROR 
JSR PC,SECERR :60 CHE Ck FOR SECONDARY ERRORS 
BR 180$ 6 180$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
JMP 350$ :GO TO 350$ IF ERROR 
180$: 
; CHANGE LOOP ADDRESS 
MOV Atte SLPERR 
FEAR EEE EEE KEE 
:LOOP #3 WRITE CHECK DATA 
190$: 
MOV #1,R3 :R3+WCE BIT POSITION 
195$: BIS R3 BUF TWO-2 [CHANGE LAST WORD OF BUFFER 
;PREPARE DEVICE FOR TEST 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
“WORD 154130 S TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
TRECALIBRATE IF ‘SKI’ OR 'PIP’’ IS SET 
7 VERIFY RECALIBRATION 
BR 2008 [G0 TO 200$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 


200$: 


am 


we 
CZRMOAO RMOS/3/2 FCTNL TST 3 MACRO VO3.01 11-APR=80 13:39:53 PAGE 12-15 
T6 WRITE, WRITE CHECK ZEROS W/ WCE ERROR SEQ 0086 





490 “READ DATA FROM DEVICE 

491 013460 240$: 

492 013460 012737 000051 001410 MOV #WCD!GO,RMCS10 :WRITE CHECK DATA DATA COMMAND 
013466 012702 001551 MOV APUTINX.R2 ‘LOAD PUT REGISTER INDEX TABLE 
013472 112722 MOVB = #RMDA, (R2)+ 

495 013476 112722 000032 MOVB = #RMOF . (RO) + 

496 013502 112722 MOVB  #RMDC.(R2)+ 

497 013506 112722 MOVB *(R2)+ 

498 013512 112722 000002 MOVB  #RMWC. (R2)+ 

499 013516 112722 000000 MOVB = #RMCS1, (R2)+ 

200 013522 112712 000200 MOVB = #200, (R2) 

502 013526 004737 044500 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
013532 000404 250$ :GO TO 250$ IF NO ERROR 
013534 000240 NOP SRETURN HERE IF ERROR 
013536 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
0132540 000137 014062 JMP 350$ :GO TO 350$ IF ERROR 

503 013544 2508: 

505 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

"5 013544 004737 044144 JSR PC,GETSTS 7GO0 TO GETSTS SUBROUTINE 

507 ;WAIT FOR COMMAND TO COMPLETE 

. 013550 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

509 :GO READ STATUS FOR WRITE CHECK DATA OPERATION 

510 013554 004737 044230 JSR PC, GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
013560 000404 BR 260$ :GO TO 260$ IF NO ER RROR 
013562 000240 NOP sRETURN HERE IF ERROR 
013564 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
013566 000137 014062 JMP 350$ :GO TO 350$ IF ERROR 

511 013572 260S: 

513 ;CHECK FOR ERRORS DURING WRITE CHECK DATA OPERATION 

514 013572 004737 045226 JSR PC, PRIERR :GO CHECK FOR PRIMARY ERRORS 
013576 000405 BR 2706$ :GO0 TO 270$ IF NO ERROR 
013600 000240 NOP TRETURN HERE IF ERROR 
013602 104000 EMT ERROR “ DEFINED BY PRIERR SUBROUT INE 
013604 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
013606 000137 014062 JMP 350$ :GO TO 350$ IF ERROR 

515 013612 2708: 

516 013612 032737 040000 001344 BIT MWCE .RMCS21 ZWAS ‘WCE’’ DETECTED?? 

317 013620 001030 BNE 285$ YES! ! 

519 013622 004737 057742 JSR PC .DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
013626 000405 BR 280$ ;60 TO 280$ IF NO ERROR 
013630 000240 NOP “RETURN HERE IF ERROR 
013632 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
013634 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
013636 000137 014062 JMP 350$ GO TO S508 IF ERROR 

520 013642 2808: 

521 013642 013737 001344 001140 MOV RMCS21,$GDDAT ZEXPECTED STATUS 

522 013650 052737 001140 BIS MCE. $GDDAT 

523 013656 013737 001344 001142 MOV RMCS21, $BDDAT RECEIVED STATUS 

524 013664 010337 001174 MOV R3, $TMPO AILING BIT POSITION 

525 013670 012737 107316 001176 MOV #BUF TWO-2, $TMP1 FAILING ADDRESS 





“= | 


WRITE, 
526 013676 
27 


013730 
530 013734 
531 013734 
532 013742 
533 013750 


534 013754 
535 013762 
536 013770 
537 013776 
538 014004 
539 014006 
540 014010 
541 014012 
542 014020 
543 014022 
544 014024 
545 014026 


546 
547 014026 
014032 





CZRMOAO RMO5S/3/2 FCTNL TST 3 


012737 


7? 
MACRO VO03. o. 11=APR=80 13:39:53 pace 12-16 
WRITE CHECK ZEROS W/ WCE ERROR 


104337 
000470 


EMT 337 
BR 350s 
285$ 
MOVB  &#RMDB,GETINX ;SETUP GET INDEX TABLE 
MO #200,GETINX+1 :SETUP TERMINATOR BYTE 
JSR PC, GET :GO READ RMDB VIA GET jSUBROUT INE 
BR 290. [G0 TO 290$ IF NO ERR 
NOP SRETURN HERE IF E RROR 
EMT TERROR DEFINED BY GET SUBROUTINE 
neal JMP 350$ :GO TO 350$ IF ERROR 
MOV RMDBI , $BDDA sRECEIVED DATA 
MOV BUF TWO=2 SeDDAT TEXPECTED DATA 
BIC R3,$GDDAT 
MOV WBUF TWO-2, $GDADR ZEXPECTED ADDRESS 
MOV RMBAI , SBDADR SRECEIVED ADDRESS 
SUB #2, $BDAD SADJUST BUS ADDRESS 
CMP SGBADR. SODADR SADDRESSES OK?? 
BEQ 295$ YES! ! 
EMT 340 
BR 350$ 
295$: CMP SGDDAT, SBDDAT :DATA OK?? 
BEQ 296$ “YES! ! 
EMT 341 
BR 350$ 
296S: 
JSR PC,SECERR 7GO CHECK FOR SECONDARY ERRORS 
BR 3008 :GO TO 300$ IF NO ERROR 
NOP TRETURN HERE IF ERROR 
EMT ERROR “ DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
sons JMP 350$ :GO TO S508 IF ERROR 
BIC R3,BUF TWO-2 RESTORE PATA PATTERN 
ASL R3 :SHIFT TO NEXT BIT 
BEQ 350$ TEXIT iF DONE 
JMP 195$ [REPEAT TEST FOR NEXT DATA BIT 
350$: 
Z FERRARA AKEERERERERAREEEREEEREREREEEEREEE 
T*TEST 7 WRITE, READ ONES 
[RRRRRRERRRRERARERREEREE ERR ERRRRE RARER ARERR EERE EERE EEE 
1817: 
SCOPE :SCOPE CALL 
‘START OF TEST 
MOV #STACK,SP : INITIALIZE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE .R1 :(R1) = DEVICE BEING TESTED 
MOV #7, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
J FEAR RARER EREEEEREERRERERERERREEEREEEE 
:LOOP #1 FORMAT ,WRITE,READ 


10$: 
;PREPARE THE DEVICE FOR TEST 





Am 





— 3S SS 3 


tia it k FCTNL_TST 3 
READ ONES 


563 014110 oh 14 040472 


044500 


015070 


044144 


SONNE AS 


Kk 7 
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JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 

.WORD 154130 ZTASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
:PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF ‘'SkI'’ OR “PIP'' IS SET 
VERIFY. RECALIBRATION 

ae 208 60 10 208 IF NO ERROR 
ZRETURN HERE IF ERROR 

EMT SERROR # DEFINED BY. TSTPRP SUBROUTINE 

JMP 3508 G0 TO 350$ IF ERROR 

ZLOAD PARAMETERS AND GENERATE DATA BUFFER 

Mov #0, RMDCO :CYLINDER = 0 

MoV #0, RMDAO ; TRACK = 0, SECTOR = 0 

MOV  ABUF ONE ,RMBAO :BUS ADDRESS 

MOV = #=258. , MWCO ie + 236. WORDS (2"S COMP) 

MOV —- #FMT16, RMOFO :16 BIT FORMAT 

MOV —- #WH!GO-RMCS10 :WRITE HEADER AND DATA COMMAND 


VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 


BR 25$ 7G0 TO 25$ IF NO ERROR 
TYPE ,SCTMSG :TYPE BAD SECTOR MESSAGE 
EMT ZERROR # DEFINED BY BADSCT SUBROUTINE 
_ JMP 350$ 7GO TO 350$ IF ERROR 
MOV HONES , STMPO STARTING ADDRESS OF PATTERN 
MOV #1,$TMP1 [RANGE OF PATTERN 
JSR PC. GENBUF G0 GENERATE BUFFER FOR FORMAT 
;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
MOV #PUTINX,R2 yR2 = BYTE ENTRY POSITION 
MOVB  #RMDC,(R2)+ 
MOVB  #RMDA.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB  A#RMWC.(R2)+ 
MOVB  &#RMOF.(R2)+ 
MOVB  #RMCS1, (R2)+ 
MOVB #200, (R2) : TERMINATE TABLE 
30$: 
;FORMAT THE DRIVE 
JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
40$ 7GO0 TO 40$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED Ae PUT SUBROUTINE 
JMP 3508 [GO TO 350$ IF E 
40$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 3G0 TO GETSTS SUBROUTINE 


:WAIT FOR COMMAND TO COMPLETE 


“am 





WRITE, 
014316 
98 


6 

614 014370 

615 

616 

617 

618 014370 
014374 


004737 
004737 
000404 
000240 
104000 
000137 


012737 
000410 


004737 
154130 


000404 
000240 
104000 
000137 


SNNNS 
NUVNNVSIAS 


I IOOOO 
nN 


tt 
POMPNMoNoNoNoNMoNoNnony 


N 
Nm 


CZRMOAO nite’ ke os on TST 3 
AD ONES 


045042 


044230 


015070 


057742 


015070 


014370 


040472 


015070 


. 2 
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001124 


JSR 


:GO READ STATUS FOR FORMAT OPERATI 
JSR PC,GET 


EMT 
JMP 


508: 


VERIFY NO ERRORS DURING FORMAT 
JSR ASTS 


EMT 
JSR 
JMP 


60S: 
sMOVE  * ADDRESSES bg A244 OPERATION 


PC,TIMOUT 


G 
50$ 


350$ 


PC,DT 
60$ 


PC,a(SP)+ 


350$ 


#70$,$ 
80$ 


:GO TO TIMOUT SUBROUTINE 


ON 
GO READ hs el pS 2 WITH GET SUBROUTINE 
:G0 TO 50$ IF en ~'y 

RETURN HERE IF ERR 

ERROR # DEFINED BY OGET SUBROUT INE 

GO TO 350$ IF ERROR 


:GO VERIFY ie ¥: OF DATA TRANSFER 
:60 TO 60$ IF  ekece” 


2G OR MOR 
G0 TO “S508 IF ERROR 


SKIP TO WRITE OPERATION 


FRR EEREEEKEREREREREEREREREEEAERERERREEREEERERKEEEE 


: Loop #2 


70$: 


WRITE ,READ 


—s. _ FOR i: a 


“ORD 


BR 


NOP 
EMT 
JMP 


80$: 


jaai re DATA 


120 


—4 
Wm 


80$ 


350$ 


TO THE DRIVE 


WRC, (RO) + 


WRMCS1, (R2)+ 


PREPARE DEVICE FOR TEST 

2 TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 


:VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SkI'* OR ‘PIP’' IS SET 
:VERIFY RECALIBRATION 
TO 80$ IF NOE 
:RETURN HERE IF E 


RROR 
ERROR # ae ire BY TSTPRP SUBROUTINE 
G0 TO 350$ IF ERROR 


; CHANGE MEMORY ADDRESS 


CHANGE WORD COUNT 


WRITE DATA COMMAND 
LOAD PUT REGISTER INDEX TABLE 


SEQ 0089 


am 





WRITE, 
633 014466 
634 
635 014472 
014476 
014500 
014502 
014504 
636 014510 
637 


638 
014510 
9 


112722 
004737 
000404 
000240 
104000 
000137 
004737 
004737 
004737 
000404 
000240 
104000 
000137 


012737 
000410 


004737 


CZRMOAO yt hed FCTNL_TST 3 
READ ONES 


000200 
044500 


015070 


044144 


045042 


044230 


015070 


045226 


015070 
057742 


015070 
046060 


015070 


014626 


040472 


M 7 
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001124 


MOVB #200, (R2)+ ; TERMINATE TABLE 


JSR PC PUT :60 Q WRITE R REGISTER(S) WITH PUT SUBROUTINE 
BR 136$ :G F NO ERROR 

NOP ‘BPr URN HERE. IF ERROR 

EMT TERROR # DEFINED BY PUT SUBROUTINE 

JMP 350$ :GO TO 350$ IF ERROR 


130$: 


sSETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS :GO TO GETSTS SUBROUTINE 


sWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT GO TO TIMOUT SUBROUTINE 


:G0 stad ead * FOR WRITE COMMAND 


PC,GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
140$ :60 TO 140$ IF NO ERROR 
[RETURN HERE IF ERROR 
EMT ‘ERROR # DEF INED BY GET SUBROUTINE 
JMP 350$ :GO TO 350$ IF E 
140$: 
;CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
150$ 7GO TO 150$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ [G0 BACK FOR MORE ERROR CHECKS 
“a JMP 350$ 760 TO 350$ IF ERROR 
JSR PC,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ 7GO TO 160$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ *GO BACK CHECKS 
sate MP 350$ :G0 TO 350$ IF E 
JSR PC, SECERR 3GO CHECK FOR SECONDARY ERRORS 
BR 180$ 360 TO 180$ IF NO ERROR 
NOP RETURN HE HERE IF ERROR 
EMT TERROR # DEF INED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ [GO BACK FOR MORE CHECKS 
JMP 350$ :GO TO 350$ IF ERROR 
180$: 
: CHANGE LOOP ADDRESSES 
MOV #190$, $LPERR 
200$ zSKIP TO NEXT OPERATION 
ag SERA 
:LOOP #3 READ 
190$: 
: PREPARE jEVICE FOR TEST 
PC, TSTPRP ;PREPARE DEVICE FOR TEST 


SEQ 0090 


am 


014632 


014 
681 014740 
682 


014740 


015 
693 015006 
694 015006 


154130 


2712 
004737 
000404 
000240 
104000 
000137 


004737 


CZRMOAO RMO5S/3/2 FCTNL TST 3 
7 WRITE, READ ONES 


015070 


107324 
001551 


015070 


044144 


045042 


044230 


015070 


045226 


015070 
057742 


N 7 
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200$: 
: ad DATA FROM 


240 


250$: 


- WORD 


BR 


NOP 
EMT 
JMP 


154130 


2008 


350$ 


DEVICE 


BUF TWO+4 , RMBAO 


#200, ¢ 


PC PUT 
250 


350$ 


; TASK DESCRIPTOR AS FOLLOW 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
EAR CONTROLLER DEVICE 


: CLEAR & SELECT 

i VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 

i VERIFY PACK ACKNOWLEDGE | 
ALIBRATE IF SKI" OR ‘PIP"' IS SET 

VERIFY RECALIBRATI 

60 TO 2008 IF NO ERROR 

:RETURN HERE IF ERROR 

ZERROR # DEFINED BY. TSTPRP SUBROUTINE 

G0 TO 350$ IF ERROR 


; CHANGE oh ttm ADDRESS 
;READ DATA C 
;LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
7G0 TO 250$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

:GO0 TO 350$ IF ERROR 


; SETUP 1 INDEX TABLE TO READ ALL REGISTERS 


:WAIT fr * ata | TO COMPLETE 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


260$: 


BR 


EMT 
JMP 


PC,GETSTS 


PC, TIMOUT 


260$ 


350$ 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
£60 TO 260$ IF NO — 


RETURN HERE IF ERR 
ERROR # DEFINED BY oGET SUBROUT INE 
GO TO 350$ IF ERROR 


s CHECK FOR ERRORS DURING READ OPERATION 
JSR PC,PRIERR 


270$: 


2706$ 


PC,a(SP)+ 
350$ 


PC,DTASTS 


‘3 CHECK o. oy ERRORS 
TO 270$ NO ERROR 

RE TURN HERE” IF ERROR 

SERROR # Bia te BY PRIERR SUBROUTINE 
BACK FOR MORE ERROR CHECKS 

:GO TO Ssos IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 


SEQ 0091 | 


aM 


WRITE, 
015012 


01 
699 015070 
00 
701 015070 
702 
703 


704 
705 
706 


707 
708 015116 


7 
714 015136 


004737 
154130 


000404 
000240 
104000 
000137 


tated iit” fe i on TST 3 
AD ONES 


015070 
046060 


015070 
043602 


015070 


040472 


016046 


B 
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001226 


280$: 


300$: 


310$: 
350$: 


280$ 


PC,a(SP)+ 


356$ 


PC, SECERR 
300$ 


PC,a(SP)+ 
350$ 


260 TO 280$_ IF NO ERROR 
;RETURN HERE IF ERROR 

ERROR # Pon tain BY DTASTS SUBROUTINE 
3G MORE ERROR CHECKS 


O BACK FOR 
:G0 TO Ssos IF ERROR 


GO CHECK FOR yy ERRORS 
:G0_ TO 300$ IF NO ERROR 

RETURN HERE IF ERROR 

sERROR # Fem ain BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:GO0 TO Ssos IF ERROR 


:G0 recta arian’ READ DATA BUFFERS 
ARTING ADDRESS OF WRITE BUFFER 
STARTING x Gea OF READ BUFFER 


"E OR 
# DEFINED BY CMPBUF SUBROUTINE 
:60 TO 350$ IF ERROR 


SAAR EKER EEEREREEEREREEEEERKEKEKE 


STEST 10 


78110: 


WRITE, WRITE CHECK ONES 


DAISIES IIIUIDUUUR EE EERE ERE R EERE EERE EERE REE 


STACK, SP 
SBASE ,RO 
TSTQUE ,R1 
#10,$TESTN 


SCOPE CALL 

START OF TEST 

4S eee gin POINTER 
IBUS AD 


= UN DRESS 
tri) DEVICE. BEING TESTED 
3:SET TEST NUMBER IN APT MAIL BOX 


SF AERA EREREKEEREREREREREEEKEEEREREREKEEEEEEKKKKEREEK 


FORMAT ,WRITE,WRITE CHECK DATA 


;LOOP #1 


10$: 


sPREPARE THE DEVICE FOR TEST 
JSR PC, TSTPRP 


- WORD 


BR 


EMT 
JMP 


4130 


20$ 


350$ 


sPREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

sSELECT DEVICE A VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLE E 


R © SELECT DEV 

VERIFY CONTROLLER CLEAR 
PACK ACKNOWLEDGE 

VERIFY PACK ACKNOWLEDGE 
ZRECALIBRATE IF ‘'SkI'’ OR ‘PIP'' IS SET 
:VERIFY_RECALIBRATION 
GO TO 20$ IF NO ERROR 
;RETURN HERE IF ERROR 
ZERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 350$ IF ERROR 


iL OAD PARAMETERS AND GENERATE DATA BUFFER 


mms 
. 


| ~~~ 
Ragsss23 
NFSURS 


734 015266 
735 015272 
736 015276 
737 015302 
738 
739 
740 015302 
015306 
015314 
741 015320 
742 
743 
015320 
44 
745 
6 015324 


747 
748 015330 
015334 


01 
749 015346 
750 
751 
752 015346 
015352 


015354 
015356 
015360 


3/ 


—_- = 


a I IO 
2S 
ronronornororonetds 


016046 


057742 





SONNE AS 


;GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


C 
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SEQ 0093 
mov #0, RMDCO sCYLINDER = 0 
MOV #0, RMDAO STRACK = 0, SECTOR = 0 
MOV «BUF ONE ,RMBAO ‘BUS ADDRESS 
MOV  - #=258, ,RMWCO i2 + 256. WORDS (2"S COMP) 
MOV ——«s #FMT16.. RMOFO :16 BIT 
MOV —s#WH! GO. RMCS10 {URITE HEADER AND DATA COMMAND 


THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 


BR 25 GO TO 25$ IF NO ERROR 

TYPE -SCTMSG TYPE BAD SECTOR MESSAGE 

EMT ERROR # ite BY BADSCT SUBROUTINE 
JMP 350$ GO TO 350$ IF ERROR 

MOV #ONES , STMPO ; STARTING Sart Eis OF PATTERN 
MOV #1,$TMP1 RANGE OF PATTERN 

JSR PC ,GENBUF :G0 GENERATE BUFFER FOR FORMAT 


;LOAD a ie INDEX TABLE FOR FORMAT OPERATIION 


INX ,R2 3;R2 = BYTE ENTRY POSITION 


MOVB * (R2)+ 

MOVB  ARMWC. (R2)+ 

MOVB = #RMOF + 

MOVB = #RMCS1, (R2)+ 

MOVB #200, (R2) : TERMINATE TABLE 

THE DRIVE 

JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ ‘GO TO 40$ IF NO ERROR 

NOP RETURN | HERE IF ERROR 

EMT ‘ERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ +60 TO 350$ IF ERROR 


; SETUP i ® INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS :GO TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TO COMPLETE 


JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


3GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO_TO 50$ IF NO ERROR 


*RETURN HERE IF ERROR 
EMT ‘ERROR # DEF INED BY GET SUBROUTINE 
JMP 350$ *GO TO 350$ IF ERROR 
:VERIFY NO ERRORS DURING FORMAT 
JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
60$ *GO TO 60$ IF NO ERROR 
SRETURN HERE IF 


ERROR 
EMT ERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 


=m 



























D 
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T10 WRITE, WRITE CHECK ONES 


015362 000137 016046 JMP 350$ :G0 TO 350$ IF ERROR 
735 015366 60$: 
755 MOVE Loop ADDRESSES 10 NEXT OPERATION 
756 015366 012737 015376 001124 #708,$ 
037 015374 000410 BR 80$ :SKIP TO WRITE OPERATION 
759 FTAA EREEEEEEEEEEEREE EEE 
760 :LOOP #2 WRITE ,WRITE CHECK DATA 
762 015376 70$: 
tee 
765 :PREPARE DEVICE FOR WRITE OPERATION 
766 015376 004737 040472 JSR PC,TSTPR ;PREPARE DEVICE FOR TEST 
015402 154130 .WORD 154130 : TASK DESCRIPTOR AS FOLL 
ZSELECT DEVICE & VERIFY. DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
K ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
[VERIFY RECALIBRATION 
015404 000404 BR 80$ :GO TO 80$ IF NO ERROR 
015406 000240 NOP ‘RETURN HERE IF ERROR 
015410 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
015412 000137 016046 JMP 350$ :G0 TO 350$ IF ERROR 
767 015416 80$: 
:WRITE DATA TO THE DRIVE 
770 015416 120$: 
771 015416 012737 106320 001414 MOV BUF ONE +4, RMBAO : CHANGE MEMORY ADDRESS 
772 015424 012737 177400 001412 MOV #-256.,RMWCO CHANGE WORD COUNT 
773 015432 012737 000061 001410 MOV MWD !GO,RMCS10 :WRITE DATA COMMAND 
774 015440 012702 001551 MOV #PUTINX,R2 SLOAD PUT REGISTER INDEX TABLE 
015444 112722 000006 MOVB  #RMDA, (R2)+ 
776 015450 112722 000034 MOVB  #RMDC.(R2)+ 
777 015454 112722 000032 MOVB = #RMOF . (RO) + 
778 015460 112722 000004 MOVB  4#RMBA.(R2)+ 
779 015464 112722 000002 MOVB #RMWC.(R2)+ 
780 015470 112722 000000 MOVB  #RMCS1,(R2)+ 
781 015474 112722 000200 MOVB #200, (R2)+ : TERMINATE TABLE 
783 015500 004737 044500 JSR PC, PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
015504 000404 BR 136$ :G0 TO 130$ IF NO ERROR 
015506 000240 NOP “RETURN HERE IF ERROR 
015510 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
015512 000137 016046 JMP 350$ :GO TO 350$ IF ERROR 
784 015516 130$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
015516 004737 044144 JSR PC,GETSTS 7G0 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
4 015522 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR WRITE COMMAND 









SEQ 0094 


791 0155 


— a SS 


572 


Be 015634 


Co 00 
= ad 


1 
812 015634 
015640 





004737 
000240 
104000 
000137 


012737 
000410 


000404 
000240 
104000 
000137 
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044230 


016046 


045226 


016046 
057742 


016046 
046060 


016046 


015634 


040472 


016046 


E 
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001124 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 140$ IF NO ERROR 


IF ERROR 
# DEFINED BY GET SUBROUTINE 
:60 TO 350$ IF ERROR 


O CHECK FOR gy ERRORS 
TO 150$_IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR # a BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
760 TO 350$ IF ERROR 


:GO VERIFY RESULTS OF -—" TRANSFER 
:GO TO 160$ IF NO ERR 

;RETURN HERE IF ERR oR 

ERROR # Fea ote BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

3G0 TO 350$ IF ERROR 


GO CHECK FOR SECONDARY ERRORS 
+60 TO 180$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR Fin pan BY SECERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO $508 IF ERROR 


SKIP TO NEXT OPERATION 


SIERRA EERE EREREEEEEEEEEREREEREEERREREREEEREEEREREEEERREEE 


WRITE CHECK DATA 


DATA OPERATION 


sPREPARE DEVICE FOR TEST 
ZTASK DESCRIPTOR AS FOLLOWS: 
ZSELECT DEVICE & VERIFY DEVICE AVAILABLE 
EAR CONTROLLER & SELECT DEVICE 
CLEAR OPERATION 
ZPACK ACKNOWLEDGE IF EVOLUME NOT VALID 
: VERIFY PACK ACKNOWL EDGE 
ZRECALIBRATE IF ‘SKI’ OR “PIP'' IS SET 
: VERIFY RECALIBRATION 
iGO TO 200$ IF NO ERROR 


RETURN HERE IF ERROR 
ERROR # DEFINED BY TST: RP SUBROUTINE 


iCL 
;VERIFY CONTROLLER 


JSR PC,GET 
BR 146$ 
NOP 
EMT 
JMP 350$ 
140$: 
:CHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC,PRIERR :6 
BR 150$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
150$: 
JSR PC ,DTASTS 
BR 160$ 
NOP 
EMT 
JSR PC, a(SP)+ 
JMP 350$ 
160$: 
JSR PC, SECERR 
BR 180$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
180$: 
; CHANGE LOOP ADDRESSES 
MOV a908. SLPERR 
BR 200$ 
:LOOP #3 
190$: 
/PREPARE DEVICE eer WRITE CHECK 
.WORD 1541 
BR 200$ 
NOP 
EMT 
JMP 3508 


200$: 


:GO TO 350$ IF ERROR 


;WRITE CHECK DATA DATA FROM DEVICE 
2408: 


SEQ 0095 


WRITE, 


ae 015716 
827 015722 
015726 
015730 
01 He 3 
015734 
828 015740 
829 
30 
' 015740 


32 
3 015744 


834 

835 015750 
015754 
015756 
015760 
015762 

836 015766 

837 


838 
839 015766 
01 


oO 
— 
nm 
YN 
Ww 
N 


3S sO 
— 
roronenororornore 
PoNMoNnononononory 


ae 
SRN 


000 
000137 


RMOAO RMO5/3/2 FCTNL TST 3 
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000051 


000032 


044144 


045042 


044230 


016046 


045226 


016046 
057742 


016046 
046060 


016046 
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001410 


MOV #WCD!GO,RMCS10 
NX 


MOV #PUTINX.R2 

MOVB = #RMDA, (R2)+ 
MOVB = #RMOF . (R2)+ 
MOVB = #RMDC. (R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB  #RMWC.(R2)+ 
MOVB = #RMCS1, (R2)+ 


MOVB #200, (R2) 


S ERROR a 
:GO TO 350$ IF ERROR 


WRITE CHECK DATA DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
G0 TO 250$_IF NO ERROR 

RETURN HERE IF ERROR 

DEFINED BY PUT SUBROUTINE 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


TION 
GO READ yo gt Bt WITH GET SUBROUTINE 
$ IF NO ERROR 


; :60 TO 260 


RETURN HERE IF 


ERROR 
TERROR # DEFINED BY GET SUBROUTINE 
:GO TO 350$ IF ERROR 


CHECK FOR ERRORS wt WRITE CHECK DATA Sok patie 
RIERR + HE CK 


C FOR PRIMARY ERRORS 
0 TO 270$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
:G0 TO 350$ IF ERROR 


f VERIFY ety y OF DATA TRANSFER 
(O TO 280$ IF NO ERROR 

RE TURN HERE” iF ERROR 

; ERROR a renter BY DTASTS SUBROUTINE 
BACK FOR MORE ERROR CHECKS 

:GO TO 350$ IF ERROR 


3 eo FOR ye me ERRORS 
O 300$ IF NO ERROR 
‘RETURN HERE IF ERROR 
ZERROR & # Fin pikes 2 tal = a TINE 


BACK FOR MOR 
:GO0 TO 3508 IF ERROR 


BR 250$ 
NOP 
EMT 
JMP 350$ 
2508S: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 
7GQ READ STATUS FOR WRITE CHECK DATA OPERA 
JSR PC, GET 
BR 
EMT 
JMP 350$ 
260$: 
JSR PCP 
BR 270$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
270$: 
JSR PC, DTASTS 
BR 280$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
280$: 
JSR PC, SECERR 
BR 300$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
300$: 
350$: 


LEAR AEE REAR REREREREAERERRERREAEREAERERREEREKEERERR ERE 





SEQ 0096 
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CZRMOAO RMOS/3/2 FCTNL T 
111 WRITE, WRITE CHECK ONES W/ WCE ERROR SEQ 0097 
:*TEST 11 WRITE, WRITE CHECK ONES W/ WCE ERROR 
TTT TI TITTTLIIT LTE T LETT TETE LITT T LTTE TTT TTT TTT TTT ETT TT 
016046 i111: 
016046 000004 SCOPE SCOPE ae 
016050 000240 NOP ;START OF TEST 
016052 012706 001100 MOV ASTACK, SP SIN TIALIZE STACK POINTER 
016056 013700 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
016062 013701 001464 MOV TSTQUE ,R1 +(R1) = DEVICE BEING TESTED 
016066 012737 000011 001226 MOV #11,$TESTN t;SET TEST NUMBER IN APT MAIL BOX 
850 DE IIIT TTI EERE EERE REE ERE REE 
Ha : LOOP #1 FORMAT ,WRITE,WRITE CHECK DATA 
Ber 016074 10$: 
855 ;PREPARE THE DEVICE FOR echo OPERATION 
856 016074 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
016100 154130 WORD 154130 3; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
; VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF a NOT VALID 
7 VERIFY PACK ACKNOWL ED 
;RECALIBRATE IF at hive OR 'PIP’' IS SET 
; VERIFY RECALIBRATI 
016102 000404 BR 20$ :GO TO 20$ IF NO ERROR 
016104 000240 NOP ZRETURN HERE IF ERROR 
016106 104000 EMT sERROR # DEFINED a. TSTPRP SUBROUTINE 
016110 000137 017244 JMP 350$ :GO TO 350$ IF ERROR 
244 016114 20$: 
859 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
860 016114 012737 000000 001444 MOV #0,RMDCO 7 CYLINDER = 0 
861 016122 012737 001416 MOV ; TRACK = 0, SECTOR = 0 
862 016130 012737 106314 001414 MOV BUF ONE , RMBAO ;BUS 
863 016136 012737 177376 001412 MOV #-258. ,RMWCO ;WORD COUNT = 1 SECTOR 
864 016144 012737 010000 001442 MOV #FMT16,RMOFO 316 BIT FORMAT 
ae 016152 012737 000063 001410 MOV #WH!GO,RMCS10 [WRITE HEADER AND DATA COMMAND 
7 ; VERIFY THAT SECTOR IS NOT BAD 
016160 004737 041416 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
016164 0 BR 5$ :GO0 TO 25$ IF NO ERROR 
016166 104401 070230 TYPE ~SCTMSG ; TYPE BAD SECTOR MESSAGE 
016172 104000 EMT ERROR # DEFINED BY BADSCT SUBROUTINE 
gielre 000137 017244 255 JMP 350$ :GO TO 350$ IF ERROR 
869 016200 012737 071666 001174 MOV #ONES , STMPO STARTING arte bo OF PATTERN 
870 016206 012737 000001 001176 MOV #1,$1TMP1 [RANGE OF PATTERN 
fal 016214 004737 043344 JSR PC, GENBUF ;G60 CENERATE BUFFER FOR FORMAT 
;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
874 016220 012702 001551 MOV #PUTINX ,R2 :R2 = BYTE ENTRY POSITION 
875 016224 112722 000034 MOVB ARMDC , (R2)+ 
876 016230 112722 000006 MOVB ARMDA, (R2)+ 
877 016234 112722 000004 MOVB ARMBA , (R2)+ 
878 016240 112722 000002 MOVB ARMWIC , (R2)+ 
879 016244 112722 000032 MOVB #RMOF , (R2)+ 








CZRMOAO RMO5S/3/2 


11 


WRITE, WR 


880 016250 


901 016344 
902 016352 
903 
904 
905 
906 
907 016354 
908 


909 
910 016354 
016360 


012737 
000410 


004737 
154130 


000404 
000240 
104000 


NL TST 3 
000000 
000200 
044500 
017244 


044144 
045042 


044230 
017244 


057742 


017244 


016354 


040472 


MOVB 
MOVB 


30$: 


FORMAT THE DRIVE 
JSR PC 


NOP 

EMT 

JMP 
40$: 


ARMC 
#200, 


350$ 


S1,(R2)+ 
(R2) 


8 
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NCHECK ONES W/ WCE 


: TERMINATE TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO_TO 40$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 350$ IF ERROR 


; SETUP i ® INDEX TABLE TO READ ALL REGISTERS 


PC, 


GETSTS 


WAIT FOR COMMAND TO COMPLETE 


JSR 
BR 
NOP 


EMT 
JMP 
50$: 


VERIFY NO ERRORS DURING FORMAT 
PC ,DTASTS 


JSR 


NOP 

EMT 

JSR 

JMP 
60$: 


PC,T 


350$ 


PC,a 


350$ 


IMOUT 


(SP)+ :GO BACK 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 508 IF NO ERR ~'y 

RETURN HERE IF ERR 

ERROR # DEFINED BY OCT SUBROUT INE 

:GO TO 350$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
GO TO NO ERROR 


60$ IF 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
FOR MORE ERROR CHECKS 
GO TO 350$ IF ERROR 


MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #70$,$LPERR 


BR 


SKIP TO WRITE OPERATION 


2 AERA REREREEEEEKEEEEEEKEREEEEEEEEEEEKEEEEEREEEEE 


WRITE ,WRITE CHECK DATA 


;LOOP #2 
70$: 


PREPARE DEVICE FOR pet hit OPERATION 
JSR PC, TSTPR 


3g 


80$ 


PREPARE DEVICE FOR cor 

: TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & UEAR o DEVICE 


VERIFY CONTROLLER C ERAT 

ZPACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE” 
RECALIBRATE IF ‘'SkI'' OR ‘PIP'' IS SET 


VERIFY RECAL IBRATION 
0 80$ 


IF ERROR 
“ERROR # DEFINED BY TSTPRP SUBROUTINE 





SEQ 0098 


3 


6 
927 016456 
016462 
016464 
016466 
016470 
928 016474 

929 

30 
016474 

931 


2 
016500 
933 


934 
935 016504 
016510 


016516 
936 016522 
937 


938 
939 016522 
016526 





000137 


N 
Nm 
Nm 
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017244 


017244 


044144 


045042 


044230 


017244 


045226 


017244 
057742 


017244 
046060 
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80$: 
120 


130$: 


JMP 


SEQ 0099 
350$ GO TO 350$ IF ERROR 


by Me DATA TO THE DRIVE 


#~256. ,RMWCO : CHANGE WORD COUNT 


ABUF ONE +4 , RMBAO ;CHANGE MEMORY ADDRESS 
#WD !GO,RMCS10 WRITE DATA COMMAND 
#PUTINX,R2 “LOAD PUT REGISTER INDEX TABLE 
ARMDA, (R2) + 
ARMDC, (R2)+ 
ARMOF , (R2)+ 
ARMBA, (R2)+ 
ARMWC . (RO) + 
ARMCS1, (R2)+ 
#200, (R2)+ : TERMINATE TABLE 
PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
130$ :GO TO 130$ IF NO ERROR 

SRETURN HERE IF ERROR 

TERROR # DEFINED BY PUT SUBROUTINE 
350$ :GO TO 350$ IF ERROR 


; SETUP i # INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS :G0 TO GETSTS SUBROUTINE 


WAIT see ® eos TO COMPLETE 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


140$: 


BR 


EMT 
JMP 


PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


G60 READ REGISTER(S) WITH GET SUBROUTINE 
140$ :G0 140$ IF NO ERROR 

RE TURN HERE IF ERROR 

TERROR # DEFINED BY GET SUBROUTINE 
350$ :GO TO 350$ IF ERROR 


CHECK FOR eNOS nie WRITE OPERATION 


150$: 


160$: 


GO CHECK FOR gy ERRORS 


:GO TO 150$ IF NO 
SRETURN HERE IF ERROR 
TERROR # DEF INED BY PRIERR SUBROUTINE 
PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
350$ :GO TO S508 IF ERROR 
PC DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
160$ :60 TO 160$ IF NO ERROR 
RETURN HERE IF ERROR 
TERROR # DEF INED BY DTASTS SUBROUTINE 
PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
350$ :GO TO Ssos IF ERROR 
PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
180$ :G0 TO 180$ IF NO ERROR 


;RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 




























CZRMOAO RMOS/3/2 FCTNL TST 3 MACRO VO3.01 11-APR=80 13:39:53 PAGE d 8. -29 
T11 WRITE, WRITE CHECK ONES W/ WCE ERROR SEQ 0100 
016574 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
016576 000137 017244 JMP 350$ *GO0 TO S508 IF ERROR 
44 016602 180$: 
946 : CHANGE LOOP ADDRESSES 
an 016602 012737 016610 001124 MOV #190$, $LPERR 
949 CLARE AREER AERA EREREEEEEREEREEEREERERERREEREREEERRK EE 
930 :LOOP #3 WRITE CHECK DATA 
9 016610 190$: 
954 016610 012703 000001 MOV #1,R3 yR3+WCE BIT POSITION 
939 016614 040337 107316 195$: BIC R3 BUF TWO=2 :CHANGE LAST WORD OF BUFFER 
957 :PREPARE DEVICE FOR WRITE CHECK DATA OPERATION 
958 016620 004737 040472 JSR PC, TSTPRP yPREPARE DEVICE FOR TEST 
016624 154130 “WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
EAR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERATION 
*PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'' OR 'PIP’' IS SET 
[VERIFY RECALIBRATION 
016626 000404 BR 2008 :GO TO 200$ IF NO ERROR 
016630 000240 NOP [RETURN HERE IF ERROR 
016632 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
016634 000137 017244 JMP 350$ :GO0 TO 350$ IF ERROR 
959 016640 2008: 
961 -READ DATA FROM DEVICE 
962 016640 240$: 
963 016640 012737 000051 001410 MOV #WCD!GO,RMCS10 ;WRITE CHECK DATA DATA COMMAND 
964 016646 012702 001551 MOV APUTINX,R2 ;LOAD PUT REGISTER INDEX TABLE 
965 016652 112722 000006 MOVB = #ARMDA, (R2)+ 
966 016656 112722 000032 MOVB = #ARMOF . (R2)+ 
967 01 112722 MOVB  #RMDC.(R2)+ 
968 01 112722 000004 MOVB  #RMBA.(R2)+ 
016672 112722 000002 MOVB = #RMWC. (RO) + 
016676 112722 000000 MOVB = ARMCS1, (R2)+ 
71 016702 112712 000200 MOVB #200, (R2) 
973 016706 004737 044500 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
016712 000404 BR 250$ :GO TO 250$ IF NO ERROR 
016714 000240 NOP RETURN HERE IF ERROR 
016716 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
016720 000137 017244 JMP 350$ :GO TO 350$ IF ERROR 
974 016724 250$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
we 016724 004737 044144 JSR PC,GETSTS 760 TO GETSTS SUBROUTINE 
978 ;WAIT FOR COMMAND TO COMPLETE 
ae 016730 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


;GO READ STATUS FOR WRITE CHECK DATA OPERATION 
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JSR 


BR 

NOP 
EMT 
JMP 


PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
266$ :G0 TO 260$ IF NO ERROR 

RETURN HERE IF ERROR 

TERROR # DEFINED BY GET SUBROUTINE 
350$ :GO TO 350$ IF ERROR 


3 CHECK A ERRORS ie WRITE CHECK DATA Sok pate 
PC,PRIERR 7G K 


270$: 


280$: 


285$: 


295$: 


296$: 


é FOR PRIMARY ERRORS 
276$ :G0 TO 270$ IF NO ERROR 


IF ERROR 
ERROR 4 Pon aie BY PRIERR SUBROUTINE 


PC, a(SP)+ 60 OR MORE ERROR CHECKS 
350$ :G0 TO F50S IF ERROR 
MCE ,RMCS21 WAS "WCE'’ DETECTED?? 
PC ,DTASTS 60 verify RESULTS OF DATA TRANSFER 
280$ :GO TO 280$ IF NO ERROR 
RE ny ee HERE IF ERROR 
TERROR # DEFINED BY DTASTS SUBROUTINE 
PC,a(SP)+ :GO BACK FOR MOR OR CHECKS 
350$ :G0 TO 350$ IF ERROR 
RMCS21 SGDDAT ZEXPECTED STATUS 
macs $BDDAT :RECEIVED STATUS 
R3, [FAILING BIT POSITION 
MOF TWO-2, STP 1 [FAILING ADDRESS 
350s 
WRMDB,GETINX  ;SETUP GET INDEX TABLE 
#200,GETINX+1 SETUP TERMINATOR BYTE 
#350$, RMDBI T RMDB INPUT BUFFER = 350$ 
PC,GET ?G0 READ RMDB VIA GET SUBROUTINE 
290$ 290$ IF NO ERROR 


760 TO 
RETURN HERE IF ERROR 
ERROR DEFINED BY GET SUBROUTINE 


RECEIVED DATA 


BUF TWO-2, $GDDAT TEXPECTED DATA 
R3,$GDDAT 
#BUF TWO-2 , SGDADR ZEXPECTED ADDRESS 
RMBAI , SBDAD TRECEIVED ADDRESS 
#2, $BDADR : CORRECT MEMORY ADDRESS 
$GDADR, $BDADR ; ADDRESSES OK?? 

958 sYES!! 

350s 

SGDDAT, SBDDAT :DATA OK?? 

96$ YES! ! 

41 

350$ 





SEQ 0101 
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1018 
1019 017210 004737 046060 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
017214 000405 BR 300$ :60 TO 300$ IF NO ERROR 
017216 000240 NOP RETURN HERE IF ERROR 
017220 104000 EMT ERROR # DEF INED BY SECERR SUBROUTINE 
017222 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
017224 000137 017244 JMP 350$ :GO TO 350$ IF ERROR 
1020 017230 3008: 
1021 017230 050337 107316 BIS R3,BUF TWO=2 ;RESTORE DATA PATTERN 
1022 017234 006303 ASL R3 :SHIFT TO NEXT BIT 
1023 017236 001402 BEG 350$ TEXIT IF DONE 
1024 017240 000137 016614 JMP 195$ [REPEAT TEST FOR NEXT DATA BIT 
1025 017244 350$: 
1027 ; FRA REAR EEEEEEEREEEEEREEERERERREREEEEEEEKEEKEKEKEKEK 
;*TEST 12 WRITE, WRITE CHECK MULTIPLE SECTORS 
SAREE REEERERERREERERRAREREEREERERERERAEEEEEEEERRKEEEE 
017244 iéT12: 
017244 000004 SCOPE ZSCOPE CALL 
017246 000240 NOP SSTART OF TEST 
017250 012706 001100 MOV #STACK, SP ; INITIALIZE STACK POINTER 
017254 013700 001276 MOV SBASE ,RO [RO = UNIBUS ADDRESS 
017260 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
ioe 017264 012737 000012 001226 MOV #12,$TESTN [:;SET TEST NUMBER IN APT MAIL BOX 
1029 FF REAR ARAAEREREREREREREREEEEEEEEEEREEERERREREREREREKEREREREKEKEKEE 
1030 :LOOP #1 FORMAT ,WRITE,WRITE CHECK 
1032 017272 10S: 
1034 ;PREPARE THE DEVICE FOR FORMAT OPERATION 
1035 017272 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
017276 154130 “WORD 154130 TTASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEV VICE 
[VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWL EDGE 
SRECALIBRATE IF AKL OR "PIP IS SET 
[VERIFY RECALIBRATION 
017300 000404 BR 208 :G0 TO 20$ IF NO ERROR 
017302 000240 NOP SRETURN HERE IF ERROR 
017304 104000 EMT TERROR # DEF INED BY TSTPRP SUBROUTINE 
017306 000137 020250 JMP 350$ :GO TO 350$ IF ERROR 
1036 017312 20S: 
1038 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
1039 017312 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 
1040 017320 012737 000000 001416 MOV #0. RMDAO :TRACK = 0, SECTOR = 0 
1041 017326 012737 106314 001414 MOV #BUF ONE , RMBAO [BUS ADDR 
1042 017334 012737 176774 001412 MOV #258, #2, RMWCO WORD COUNT FOR 2 SECTORS (2°S COMP) 
1043 017342 012737 01 001442 MOV #FMT 16, RMOFO 516 BIT F 
1044 017350 012737 001410 MOV #WH'GO.RMCS10 [WRITE HEADER AND DATA COMMAND 
1046 ;VERIFY THAT SECTOR IS NOT BAD 
017356 004737 041416 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
017362 000405 BR 25$ :GO TO 25$ IF NO ERROR 
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017364 104401 070230 TYPE ,SCTMSG TYPE BAD SECTOR MESSAGE 
017370 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
017372 000137 020250 JMP 350$ :GO TO 350$ IF ERROR 

1047 017376 25$: 

1048 017376 012737 071730 001174 MOV AZEROS , STMPO STARTING ADDRESS OF PATTERN 

1049 017404 012737 000001 001176 MOV #1,$TMP1 SRANGE OF PATTERN 

1050 017412 004737 043344 JSR PC. GENBUF G60 GENERATE BUFFER FOR FORMAT 

1052 ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 

1053 017416 012702 001551 MOV #PUTINX,R2 :R2 = BYTE ENTRY POSITION 

1054 017422 112722 000034 MOVB = ARMDC, (R2) + 

1055 017426 112722 MOVB = #RMDA..(R2)+ 

1056 017432 112722 MOVB  #RMBA.(R2)+ 

1057 017436 112722 000002 MOVB = #RMWC. (RO) + 

1058 017442 112722 000032 MOVB  #RMOF.(R2)+ 

1059 017446 112722 000000 MOVB = #RMCS1, (R2)+ 

1060 017452 112712 000200 MOVB #200, (R2) ; TERMINATE TABLE 

1061 017456 30S: 

1062 

1063 ;FORMAT THE DRIVE 

1064 017456 004737 044500 JSR PC ,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
017462 000404 BR 40$ :GO0 TO 40$ IF NO ERROR 
017464 000240 NOP [RETURN HERE IF ERROR 
017466 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
017470 000137 020250 JMP 350$ :GO TO 350$ IF ERROR 

1065 017474 40$: 

1067 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

ies 017474 044144 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 

1069 ;WAIT FOR COMMAND TO COMPLETE 

wan 017500 004737 045042 JSR PC, TIMOUT 3GO TO TIMOUT SUBROUTINE 

1071 3GO READ STATUS FOR FORMAT OPERATION 

1072 017504 004737 044230 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
017510 000404 50$ :GO TO 50$ IF NO ERROR 
017512 000240 NOP SRETURN HERE IF ERROR 
017514 104000 EMT TERROR # DEF INED BY GET SUBROUTINE 
017516 000137 020250 JMP 350$ :GO TO 350$ IF ERROR 

1073 017522 50S: 

1075 ; VERIFY NO ERRORS DURING FORMAT 

1076 017522 004737 057742 JSR PC,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
017526 000405 BR 60$ :G0 TO 60$ IF NO_ERROR 
017530 000240 NOP RETURN HERE IF ERROR 
017532 104000 EMT TERROR # DEF INED BY DTASTS SUBROUTINE 
017534 004736 JSR PC.a(SP)+ [G0 BACK OR MORE ERROR CHECKS 
017536 000137 020250 JMP 350$ :GO TO Ss0s IF E 

1077 017542 60$: 

1079 ;MOVE LOOP ADDRESSES 10 NEXT OPERATION 

1080 017542 012737 017614 001124 MOV #703.$ 

1082 ;REGENERATE DATA BUFFER 

1083 017550 012737 177000 001412 MOV #~256.%2,RMWCO ;CHANGE WORD COUNT 

1084 017556 012737 106314 001414 MOV #BUF 7 CHANGE BUS ADDRESS 

1085 017564 012737 000060 001410 MOV Mad ,RMCS10 [WRITE DATA 


a Fo 
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001410 


MOV #ONES , STMPO sSTARTING ADDRESS OF PATTERN 


MOV #1,$TMP1 ‘RANGE OF PATTERN 

JSR PC. GENBUF 

BR 80$ :SKIP TO WRITE OPERATION 
FEAR REREREREEEEEERERAEEKEEERAREREEREERREEREEREEREREKKEKEK 
:LOOP #2 WRITE,WRITE CHECK 


70$: 


PREPARE DEVICE FOR WRITE OPERATION 
JSR PC,TSTPRP 


yPREPARE DEVICE FOR TEST 
WORD STASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
AR CONTROLLER & SELECT DEVICE 
“VERIFY CONTROLLER CLEAR OPERAT 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWL E DGE 
AL IBRATE Faaskiyy OF ‘PIP’ IS SET 
:VERIFY RECALIBRAT ION 
BR 80$ :GO TO 80$ IF NO E 
NOP RETURN MERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
80$: 
iWRITE DATA TO THE DRIVE 
MOV #WD!GO,RMCS10 :WRITE DATA COMMAND 
MOV APUT INK ,R2 [LOAD PUT REGISTER INDEX TABLE 
MOVB = #RMDA, (R2)+ 
MOVB  #RMDC.(R2)+ 
MOVB  #RMOF.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB #RMWC.(R2)+ 
MOVB  #RMCS1,(R2)+ 
MOVB #200, (R2)+ ; TERMINATE TABLE 
JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 130$ 7GO TO 130$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ :G0 TO 350$ IF ERROR 
130$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
3GO READ STATUS FOR WRITE COMMAND 
JSR PC, GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
140$ 360 TO 140$ IF NO ERROR 


NOP RETURN HERE IF ERROR 
EMT ERROR # DEFINED BY GET SUBROUTINE 


SEQ 0104 
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IT12 WRITE, WRITE CHECK MULTIPLE SECTORS SEQ 0105 | 
017742 000137 020250 JMP 350$ :GO TO 350$ IF ERROR 
1122 017746 140$: 
1124 :CHECK FOR ERRORS DURING WRITE OPERATION 
1125 017746 004737 045226 JSR PC ,PRIERR 7GO CHECK FOR PRIMARY ERRORS | 
017752 000405 BR 156$ 360 TO 150$ IF NO ERROR | 
017754 000240 NOP “RETURN HERE IF ERROR 
017756 104 EMT ERROR # Pin tie BY PRIERR SUBROUTINE 
017760 004736 JSR PC, a(SP)+ 7GO BACK FOR MORE ERROR CHECKS | 
s1 017762 000137 020250 nee JMP 350$ :GO TO Ssos IF ERROR | 
1127 017766 004737 057742 JSR PC,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
017772 000405 BR . 160$ :G60 TO 160$ IF NO ERROR 
017774 000240 NOP RETURN HERE IF ERROR 
017776 104000 EMT ZERROR | - DEF INED BY DTASTS SUBROUTINE | 
020000 004 JSR PC,a(SP)+ :GO BA OR MORE ERROR CHECKS 
020002 000137 020250 JMP 350s G0 70 3508 IF ERROR | 
1128 020006 160$: | 
11 020006 004737 046060 JSR PC,SECERR 3GO CHECK FOR SECONDARY ERRORS 
020012 000405 BR 180$ :GO TO 180$ IF NO ERROR 
020014 000240 NOP sRETURN HERE IF ERROR 
020016 104000 EMT sERROR , DEFINED BY SECERR — 
020020 0047 JSR PC,a(SP)+ GO BACK FOR MORE ERROR CHECK 
020022 000137 020250 JMP 350$ :GO TO 350$ IF ERROR 
1 130 020026 180$: | 
1132 :CHANGE LOOP ADDRESSES | 
1133 020026 012737 020036 001124 MOV #190$, $LPERR | 
1134 020034 000410 BR 200$ :SKIP TO NEXT OPERATION 
1136 32 REE EREEEEKEREKEREEEREKKKKKK | 
aE 4 ;LOOP #3 WRITE CHECK 
| 
1139 020036 190$: | 
1141 sneabered oo FOR READ OPERATION 
1142 020036 004737 040472 PC, TSTPRP ;PREPARE DEVICE FOR TEST 
020042 154130 JFoRD 154130 ; TASK DESCRIPTOR AS FOLLOWS: | 
: SELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER e SELECT DEVICE 
VERIFY CONTROLLER CLEAR | 
ACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLED | 
=RECALIBRATE IF ‘'SKI'’ OR 'PIP’' IS SET 
[VERIFY RECALIBRATION | 
020044 0004 BR 200$ 760 TO 200$ IF NO ERROR | 
020046 000240 NOP [RETURN HERE IF ERROR 
020050 104 EMT TERROR # DEFINED Ae TSTPRP SUBROUTINE 
020052 000137 020250 JMP 350$ :G0 TO 350$ IF E 
1143 020056 200$: 
1145 “READ DATA FROM DEVICE 
1146 020056 240$: | 
1147 020056 012737 000051 001410 MOV #WCD!GO,RMCS10 ;READ DATA COMMAND 
1148 0 012702 001551 MOV APUTINX.R2 [LOAD PUT REGISTER INDEX TABLE 
1149 020070 112722 000006 MOVB = ARMDA, (R2)+ 
1150 020074 112722 000032 MOVB  #RMOF.(R2)+ 
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1151 020100 112722 000034 MOVB = ARMDC, (R2)+ 

1138 020104 112722 000004 MOVB = #RMBA, (R2)+ 

1153 020110 112722 000002 MOVB  #RMWC, (R2)+ 

1154 020114 112722 000000 MOVB wpe . (R2)+ 

1138 020120 112712 000200 MOVB «#200, (R2) 

1157 020124 004737 044500 JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
020130 000404 BR 250$ :GO TO 250$ IF NO ERROR 
020132 000240 NOP SRET URN | HERE IF ERROR 
020134 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
020136 000137 020250 JMP 350$ :GO TO 350$ IF ERROR 

1158 020142 250S: 

1160 :SETUP GET INDEX TABLE TO READ ALL REGISTERS 

om 020142 004737 044144 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 

1162 sWAIT FOR COMMAND TO COMPLETE 

eal 020146 004737 045042 JSR PC, TIMOUT :G0 TO TIMOUT SUBROUTINE 

1164 :GO READ STATUS FOR READ OPERATION 

1165 020152 004737 044230 JSR PC,GET :GO READ REGISTER(S) tite GET SUBROUTINE 
020156 000404 BR 260$ :60 TO 260$ IF NO ERR 
020160 000240 NOP “RETURN HERE IF CRROR 
020162 104000 EMT ;ERROR # DEFINED BY GET SUBROUTINE 
020164 000137 020250 JMP 350$ *GO TO 350$ IF ERROR 

1166 020170 260$: 

1168 :CHECK FOR ERRORS DURING READ OPERATION 

1169 020 004737 045226 JSR PC,PRIERR 3G0 CHECK FOR PRIMARY ERRORS 
020174 000405 BR 270$ :G0 TO 270$ IF NO ERROR 
020176 000240 NOP “RETURN HERE IF ERROR 
020200 104000 EMT ZERROR | " DEFINED BY PRIERR SUBROUTINE 
020202 004736 JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
020204 000137 020250 JMP 350$ *G0 TO CF 50S IF ERROR 

1170 020210 270$: 

1171 020210 004737 057742 JSR PC,DTASTS 3:GO VERIFY RESULTS OF DATA TRANSFER 
020214 000405 BR 280$ :G0 TO 280$ IF NO ERROR 
020216 000240 NOP “RETURN HERE IF ERROR 
020220 104000 EMT ERROR # DEFINED BY DTASTS SUBROUTINE 
020222 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
020224 000137 020250 JMP 350$ ‘GO TO 350$ IF ERROR 

1172 020230 2808: 

1173 020230 004737 046060 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
020234 000405 BR 300$ :GO TO 300$ IF NO ERROR 
020236 000240 NOP TRETURN HERE IF ERROR 
020240 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
020242 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECK 
020244 000137 020250 JMP 350$ *GO TO 350$ IF ERROR 

117% 020250 300$: 

%6 020250 350$: 

1178 J FAA EEE EREREERETRERRAERRER EE 

S*TEST 13 WRITE, READ W/ IMPLIED SEEK 
LARA ERE REAR EEE EERE EEEREEEEREEREREREE EE 

020250 1ST13: 
020250 OPE :SCOPE CALL 
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WRITE, READ W/ IMPLIED SEEK SEQ 0107 
020252 000240 NOP sSTART OF TEST 
020254 012706 001100 MOV ASTACK, SP ‘INITIALIZE STACK POINTER 
20260 013700 001276 MOV SBAS SE ,RO ‘RO = UNIBUS ADDRESS 
020264 013701 001464 MOV TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
vere 020270 012737 000013 001226 MOV #13,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
1180 FLARE AER ERERERERAEEEREKEEREEKRRERRRREEREERERREEAREE 
1181 :LOOP #1 FORMAT ,WRITE ,READ 
1183 020276 108: 
1185 sPREPARE THE DEVICE FOR FORMAT OPERATION 
1186 020276 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
020302 154130 “WORD 154130 *TASK DESCRIPTOR AS FOLLOWS: 
‘SELECT DEVICE ¢ VERIFY DEVICE AVAILABLE 
SCLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR 
PACK ACKNOWLEDGE iF VOLUME NOT VALID 
VERIFY PACK ACKNOWL EDGE 
ALIBRATE I Feast OR ‘'PIP'' IS SET 
“VERIFY RE CAL IBRAT ION 
020304 000404 BR 208 :GO TO 20$ IF NO ERROR 
020306 000240 NOP :RETURN HERE IF ERROR 
020310 104000 EMT TERROR # DEF INED BY TSTPRP SUBROUTINE 
foi 020312 000137 021470 JMP 350$ *GO TO 350$ IF ERROR 
1188 “LOAD PARAMETERS AND GENERATE DATA BUFFER 
1189 020316 20$: 
1190 020316 012737 000000 001444 MOV #0,RMDCO iCYLINDER = 0 
1191 020324 012737 001416 MOV #0.RMDAO ‘TRACK = 0, SECTOR = 0 
1192 020332 013737 001444 021472 MOV RMDCO, 360$ SSAVE DESIRED CYLINDER 
1193 020340 012737 106314 001414 MOV ABUF ONE , RMBAO BUS ADDRESS 
1194 020346 012737 177376 001412 MOV #-258. ,RMWCO :2 ¢ 236. WORDS (2°S COMP) 
1195 020354 012737 01 001442 MOV #FMT16,RMOFO :16 BIT FORMAT 
1196 020362 012737 001410 MOV #WH'GO.RMCS10 ‘WRITE HEADER AND DATA COMMAND 
1198 :VERIFY THAT SECTOR IS NOT BAD 
020370 004737 041416 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
020374 000405 BR 25$ *GO TO 25$ IF NO ERROR 
020376 104401 070230 TYPE ,SCTMSG :TYPE BAD SECTOR MESSAGE 
020402 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
020404 000137 021470 JMP 350$ 'GO TO 350$ IF ERROR 
1199 020410 25$: 
1200 020410 012737 071666 001174 MOV HONES , STMPO STARTING ADDRESS OF PATTERN 
1201 020416 012737 000001 001176 MOV #1,STMP1 SRANGE OF PATTERN 
120 020424 004737 043344 JSR PC. GENBUF G60 GENERATE BUFFER FOR FORMAT 
1204 ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
1205 020430 012702 001551 MOV #PUTINX,R2 :R2 = BYTE ENTRY POSITION 
1206 020434 112722 000034 MOVB  #RMDC, (R2)+ 
1207 020440 112722 000006 MOVB = #RMDA, (R2)+ 
1208 020444 112722 000004 MOVB  #RMBA, (R2)+ 
1209 020450 112722 00000 MOVB  #RMWC,(R2)+ 
1210 020454 112722 00003 MOVB = #RMOF . (R2)+ 
1211 0 112722 MOVB  #RMCS41,(R2)+ 
1212 020464 112712 000200 MOVB #200, (R2) : TERMINATE TABLE 
1213 020470 30S: 





“amo 
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113 WRITE, READ W/ IMPLIED SEEK SEQ 0108 

1214 

1215 :FORMAT THE DRIVE 

1216 020470 004737 044500 JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
020474 000404 BR 40$ :G0 TO 40$ IF NO ERROR 
020476 000240 NOP “RETURN HERE IF ERROR 
020500 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
020502 000137 021470 JMP 350$ :GO TO 350$ IF ERROR 

1217 020506 40$: 

1219 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

ions 020506 004737 044144 JSR PC,GETSTS 3G0 TO GETSTS SUBROUTINE 

1221 :WAIT FOR COMMAND TO COMPLETE 

anes 020512 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

1223 3;GO READ STATUS FOR FORMAT OPERATION 

1224 020516 004737 044230 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
020522 000404 BR 50$ :G0_TO 50$ IF NO ERROR 
020524 000249 NOP “RETURN HERE IF ERROR 
020526 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
020530 000137 021470 JMP 350$ :GO TO 350$ IF ERROR 

1225 020534 50S: 

1227 ;VERIFY NO ERRORS DURING FORMAT 

1228 020534 004737 057742 JSR PC,DTASTS 3;GO VERIFY RESULTS OF DATA TRANSFER 
020540 000405 BR 60$ 7GO TO 60$ IF NO ERROR 
020542 000240 NOP SRETURN HERE IF ERROR 
020544 104000 EMT ZERROR # 7 as BY DTASTS SUBROUTINE 
020546 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
020550 000137 021470 JMP 350$ :GO TO 5508 IF ERROR 

1229 020554 60S: 

1231 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 

1232 020554 012737 020564 001124 MOV #70$,$LP 

1233 020562 000410 BR 80$ :SKIP TO WRITE OPERATION 

1235 J IAEA RARER 

;LOOP #2 WRITE ,READ 

1237 

1238 020564 70$: 

1240 : PREPARE jPEVICE FOR WRITE OPERATION 

1241 020564 004737 040472 PC, TSTPR ;PREPARE DEVICE FOR TEST 
020570 154130 JTORD 154130 : TASK DESCRIPTOR AS FOLL 


OwS : 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE = 
RECALIBRATE IF ‘'SKI‘' OR ‘PIP’ IS SET 
:VERIFY RECAL IBRAT ION 


020572 000404 BR 80$ O 80$ IF NO ERROR 

020574 000240 NOP RET URN Ae | IF ERROR 

020576 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
020600 000137 021470 JMP 350$ :GO TO 350$ IF ERROR 


1242 020604 80$: 
1243 020604 012737 001466 001444 MOV #822. ,RMDCO SEEK TO LAST CYLINDER 








tated RMO5/3/2 FCTNL 
T13 WRITE, READ W/ 


1244 020612 

1245 

1246 020620 
020624 


020626 
020630 


020632 
1247 020636 
1248 


1276 020774 
021000 
021002 
021004 


021006 
1277 021012 
1278 


1279 
021012 
80 


012737 
004737 
000404 
000240 
104000 
000137 
004737 
004737 


004737 
04 


T 3 


TS 
IMPLIED SEEK 


000005 
044500 


021470 


044144 
045042 


044230 
021470 


052344 
021470 


oes 
7400 
106300 


021470 


045042 


MACRO VO3.01 11-APR-80 13:39:53 PAGE 13-38 


001410 MOV ASEEK!GO,RMCS10 :WRITE SEEK COMMAND 
JSR PC,PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 90$ :GO TO 90$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
90$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 7G0 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
:GO GET REGISTER STATUS 
JSR GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
BR :G0_TO 100$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
100$: 
;VERIFY RESULTS OF SEEK COMMAND 
JSR PC, SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
BR 110$ :GO TO 110$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEF INED BY SEKSTS SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
350$ :G0 TO Ssos IF ERROR 
110$: 
i SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND 
001444 MOV 360$ ,RMDCO ;RESTORE CYLINDER 
001412 MOV #-256. ,RMWCO [CHANGE WORD COUN 
001414 MOV #BUF ONE +4 , RMBAO :CHANGE BUS ADDRESS 
001410 MOV MD 'GO,RMCS10 [WRITE DATA COMMAND 
MOV #PUT INX,R2 [LOAD PUT REGsSTER INDEX TABLE 
MOVB  4#RMDA, (R2)+ 
MOVB  #RMDC.(R2)+ 
MOVB  #RMOF.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB  #RMWC.(R2)+ 
MOVB  #RMCS1, (R2)+ 
MOVB #200, (R2)+ TERMINATE TABLE 
JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 136$ [GO TO 130$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
130$: 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 





SEQ 0109 
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4 WRITE, READ W/ IMPLIED SEEK SEQ 0110 
1281 :GO READ STATUS FOR WRITE COMMAND 
1282 021016 004737 044230 JSR PC, GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
021022 000404 BR 146$ :G0_TO 140$ IF NO ERROR 
021024 000240 NOP “RETURN HERE IF ERROR 
021026 104000 EMT ‘ERROR # DEF INED BY GET SUBROUTINE 
021030 000137 021470 JMP 350$ :GO TO 350$ IF ERROR 
1285 021034 140$: 
1285 : CHECK FOR ERRORS DURING WRITE OPERATION 
1286 021034 004737 045226 JSR PC,PRIERR 7G0 CHECK FOR PRIMARY ERRORS 
021040 000405 BR 150$ :60 TO 150$ IF NO ERROR 
021042 000240 NOP :RETURN HERE IF ERROR 
021044 104000 EMT * ERROR a sat BY PRIERR SUBROUTINE 
021046 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
021050 000137 021470 JMP 350$ 760 10 S508 IF ERROR 
1287 021054 150$: 
1288 021054 004737 057742 JSR PC,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
021060 000405 BR 160$ :GO TO 160$ IF NO ERROR 
021062 000240 NOP [RETURN HERE IF ERROR 
021064 104000 EMT TERROR # DEF INED BY DTASTS SUBROUTINE 
021066 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
021070 000137 021470 JMP 350$ :GO TO S508 IF ERROR 
1289 021074 160$: 
1290 021074 004737 046060 JSR PC,SECERR G0 CHECK FOR SECONDARY ERRORS 
021100 000405 BR 180$ :GO TO 180$ !F NO ERROR 
021102 000240 NOP [RETURN HERE IF ERROR 
021104 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
021106 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
021110 000137 021470 JMP 350$ :GO TO 350$ IF ERROR 
1291 021114 180$: 
1293 : CHANGE LOOP ADDRESSES 
1294 021114 012737 021124 001124 MOV #190$, $LPERR 
1295 021122 000410 BR 200$ :SKIP TO NEXT OPERATION 
1297 2 ARERR ERE EKER EERE RE REREEREEEKEKEREREEEREKEKER EE 
1298 ;LOOP #3 READ 
1299 
1300 021124 190$: 
1302 yPREPARE DEVICE FOR READ OPERATION 
1303 021124 004737 040472 JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
021130 154130 .WORD 154130 STASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE = 
RECALIBRATE IF ‘'SKI‘’ OR ‘PIP’ IS SET 

: VERIFY RECALIBRATION 


021132 000404 BR 200$ :GO_TO 200$ IF NO ERROR 
021134 000240 NOP 4 Hag HERE IF ERROR 
021136 104000 EMT ERROR # DEFINED BY TSTPRP SUBROUTINE 
021140 000137 021470 JMP 350$ GO TO 350$ IF ERROR 
1304 021144 200$: 
1305 021144 012737 001466 001444 MOV #822. ,RMDCO :SEEK_TO LAST CYLINDER 
1306 021152 012737 000005 001410 MOV #SEEK 10, RMCS10 WRITE SEEK COMMAND 





a niet tea tie emer, 
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113 WRITE, READ W/ IMPLIED SEEK SEQ 0111 

1307 

1308 021160 004737 044500 JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
021164 000404 BR 216$ [G0 TO 210$ IF NO ERROR 
021166 000240 NOP [RETURN HERE IF ERROR 
021170 104000 EMT ZERROR # DEFINED BY PUT SUBROUTINE 
021172 000137 021470 JMP 350$ :GO TO 350$ IF ERROR 

1309 021176 2108: 

1311 SETUP GET INDEX TABLE TO READ ALL REGISTERS 

i 021176 004737 044144 PC,GETSTS 3G0 TO GETSTS SUBROUTINE 

1313 ;WAIT FOR COMMAND TO COMPLETE 

on 021202 004737 045042 JSR PC, TIMOUT 7GO TO TIMOUT SUBROUTINE 

1315 3;GO GET REGISTER STATUS 

1316 021206 004737 044230 JSR PC, GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
021212 000404 BR 220$ :GO0 TO 220$ IF NO ERROR 
021214 000240 NOP [RETURN HERE IF ERROR 
021216 104009 EMT TERROR # DEFINED BY GET SUBROUTINE 
021220 000137 021470 JMP 350$ 760 TO 350$ IF ERROR 

131 z 021224 2208: 

1319 ; VERIFY RESUTS OF SEEK COMMAND 

1320 021224 004737 052344 JSR PC,SEKSTS :60 VERIFY RESULTS OF SEEK OPERATION 
021230 000405 BR 230$ O TO 230$ IF NO ERROR 
021232 000240 NOP Re TURN MERE. iF ERROR 
021234 104 EM TERROR # DEF INED BY SEKSTS SUBROUT INE 
021236 004736 JSR PC,a(SP)+ :60 BACK FOR MORE ERROR CHECK 
021240 000137 021470 JMP 350$ GO TO Ss0s IF ERROR 

1321 021244 2308: 

1323 ; SETUP PARAMETERS AND EXCUTE READ DATA COMMAND 

1324 021244 240$: 

1325 021244 013737 021472 001444 MOV 360$,RMDCO RESTORE CYLINDER 

1326 021252 012737 000071 001410 MOV #RD!GO,RMCS10 ;READ DATA COMMAND 

1327 021260 012737 107324 001414 MOV ABUF TWO+4 , RMBAO ;LOAD STARTING BUFFER ADDRESS 

1328 021266 012702 001551 MOV #PUTINX,R2 [LOAD PUT REGISTER INDEX TABLE 

1329 021272 112722 000006 MOVB  #RMDA, (R2)+ 

1330 021276 112722 000032 MOVB  #RMOF.(R2)+ 

1331 021302 112722 000034 MOVB  #RMDC.(R2)+ 

1332 021306 112722 000004 MOVB  #RMBA.(R2)+ 

1333 021312 112722 000002 MOVB #RMWC.(R2)+ 

1334 021316 112722 000000 MOVB = #RMCS1, (R2)+ 

1335 021322 112712 000200 MOVB #200, (R2) 

1337 021326 004737 044500 JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
021332 0004 BR 250$ :GO TO 250$ IF NO ERROR 
21334 000240 NOP [RETURN HERE IF ERROR 
021336 104 EMT ERROR # DEFINED BY PUT SUBROUTINE 
021340 000137 021470 JMP 350$ :GO TO 350$ IF ERROR 

1338 021344 250S: 

1340 ;WAIT FOR COMMAND TO COMPLETE 

sen 021344 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

1342 3GO READ STATUS FOR READ OPERATION 

1343 021350 004737 044230 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 





3 WRITE, READ W/ IMPLI 





000 
BS! zoe 000137 021470 


7 021366 004737 045226 


0214 36 
021402 000137 021470 
9 021406 eth 057742 


021422 000137 021470 
1350 021426 
1351 021426 004737 046060 
021432 


36 
021442 000137 021470 
1352 021446 
1353 021446 004737 043602 
021452 


10632 
021454 107324 
021456 0004 
1460 000240 
021462 104000 
021464 000137 021470 
1354 021470 
1355 
1356 021470 
1322 021470 000401 
1359 021472 000000 
1360 
1361 021474 
1362 
1363 
021474 
021474 
021476 000240 
021500 012706 001100 
021504 013700 001276 
021510 013701 001464 
021514 012737 000014 


1364 
1365 
1366 
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D SEEK 


BR 260$ :GO TO 260$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT SERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
260$: 
:CHECK FOR ERRORS DURING READ OPERATION 
JSR PC ,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
270$ :60 TO 270$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
as JMP 350$ :GO TO 3508 IF ERROR 
am PC,DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
BR 280$ O TO 280$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
inns JMP 350$ :GO TO 350$ IF ERROR 
" ‘JSR PC, SECERR 3GO CHECK FOR SECONDARY ERRORS 
BR 300$ :GO_TO 300$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE CHECKS 
ed JMP 350$ :G0 TO 3508 IF ERROR 
a PC, CMPBUF 7GO COMPARE WRITE, READ DATA BUFFERS 
“WORD  BUFONE+4 ZSTARTING ADDRESS OF WRITE BUFFER 
“WORD BUF TWO+4 *STARTING ADDRESS OF READ BUFFER 
BR 310$ :GO TO 310$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT [ERROR # DEFINED BY CMPBUF SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
310$: 
350$: 
BR 370$ 
360$: .WORD 0 
370$: 
SERA REE AREER REAR EEAEEEREEEREREREREREREERRREEE 
SSTEST 14 WRITE, WRITE CHECK W/ HEAD SWITCHING 
RRARERERA REAR RRA ERE ERRERRR RRR RRRRRE EERE EERE REE Ree 
T1146: 
SCOPE :SCOPE CALL 
NOP ‘START OF TEST 
MOV #STACK, SP : INITIALIZE STACK POINTER 
MOV $BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 ;(R1) = DEVICE BEING TESTED 
001226 MOV #14, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
SEERA ARERR AEE EAEAEEAEREERERAEEEREREAREREREEE 
‘Loop #1 FORMAT,WRITE,WRITE CHECK 


SEQ 0112 
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T14 WRITE, WRITE CHECK W/ HEAD SWITCHING SEQ 0113 
1367 
1368 “LOAD PARAMETERS AND GENERATE DATA BUFFER 
1369 021522 10$: 
1370 021522 012737 000000 001444 MOV #0,RMDCO iCYLINDER = 0 
1371 021530 112737 000000 001417 MOVB  #0.RMDAO+1 ‘TRACK = 0 
1372 021536 112737 000037 001416 15$:  MOVB  4#31..RMDAO :SECTOR = 31. 
1373 021544 012737 010000 001442 MOV #EMTI6 RMOFO °16 BIT FORMAT 
1374 021552 012737 106314 001414 MOV #BUF ONE , RMBA ‘BUS ADDRESS 
1375 021560 012737 176774 001412 MOV pt f Ae [WORD COUNT FOR 2 SECTORS (2'S COMP) 
1376 021566 012737 000063 001410 MOV #WH!GO,RMCS10 ‘WRITE HEADER AND DATA COMMAND 
1378 ;VERIFY THAT SECTOR IS NOT BAD 
021574 004737 041416 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
021600 000405 BR 20$ :GO TO 20$ IF NO ERROR 
021602 104401 070230 TYPE ,SCTMSG [TYPE BAD SECTOR MESSAGE 
021606 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
021610 000137 022702 JMP 350$ :GO TO 350$ IF ERROR 
1379 021614 208: 
1380 021614 123727 001416 000037 CMPB —s- RMDAO,, #31. :1S LAST TRACK ASSIGNED ? 
1381 021622 001345 BNE 15$ F NO 
1382 021624 012737 071666 001174 MOV HONES , $TMPO 3 STARTING ADDRESS OF PATTERN 
1383 021632 012737 000001 001176 MOV #1,$TMP1 E OF PATTERN 
1384 021640 004737 043344 JSR PC; GENBUF :60 GENERATE BUFFER FOR FORMAT 
1386 sPREPARE THE DEVICE FOR ee OPERATION 
1387 021644 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
021650 154130 “WORD 154130 S TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
‘PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWL EDGE 
SRECALIBRATE IF ‘'SKI'' OR 'PIP’' IS SET 
[VERIFY RECALIBRAT | ION 
021652 000404 BR 30$ :GO TO 30$ IF NO ER 
021654 000240 NOP ZRETURN HERE IF ERROR 
021656 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
021660 000137 022702 JMP 3508 :GO TO 350$ IF ERROR 
1388 021664 30S: 
1390 :LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
1391 021 012702 001551 MOV #PUTINX,R2 ;R2 = BYTE ENTRY POSITION 
1392 021670 112722 000034 MOVB  #RMDC,(R2)+ 
1393 021674 112722 000006 MOVB  #RMDA.(R2)+ 
1394 021 112722 000004 MOVB  #RMBA.(R2)+ 
1395 021 112722 000002 MOVB = #RMWIC. (RO) + 
139% 021710 112722 000032 MOVB = #ARMOF + 
1397 021714 112722 000000 MOVB wpm. (R2)+ 
1398 021720 112712 000200 MOVB #200, (R2) ; TERMINATE TABLE 
1400 :FORMAT THE DRIVE 
1401 021724 004737 044500 JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
730 000404 BR 408 :GO TO 40$ IF NOE 
021732 000240 NOP [RETURN HERE IF ERROR 
104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
000137 022702 JMP 3508 :GO TO 350$ IF ER 


021736 
1402 021742 40$: 








1403 


1 2046 
1425 022054 
1426 022060 
1427 
1428 
1429 
1430 

1431 022062 
1432 


1433 
1434 022062 
022066 


022076 
1435 022102 
1436 022102 
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004757 
004737 
004737 
000404 
000240 
104000 
000137 


044144 
045042 


044230 
022702 


057742 


022702 


022062 


106314 
071730 
000001 


00060 
043344 


040472 


022702 
000005 001410 
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WRITE, WRITE CHECK W/ HEAD SWITCHING 


; SETUP INDEX TABLE Fste READ ALL REGISTERS 


PC,GETS 


;WAIT FOR COMMAND TO COMPLETE 


:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


50$ 
EMT 
JMP 350$ 
50$: 
:VERIFY NO ERRORS DURING FORMAT 
JSR PC,DTASTS 
60$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
60$: 


JSR 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 

:GO TO TIMOUT SUBROUTINE 

:G0 READ REGISTER(S) WITH GET SUBROUTINE 
0 IF NO ERROR 


IF ERROR 
# DEFINED BY GET SUBROUTINE 
60 TO 350$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 60$ IF a ERROR 

;RETURN HERE IF ERROR 

ERROR # DEF INED- BY La arate 


GO BACK FOR MORE ERROR 
360 TO Ssos IF ERROR 


:MOVE a “pane TO os OPERATION 


#70$,$LPE 


ademas BUFFER 


#-256. #2, RMWCO 
ONE , RMBAO 

AZEROS , $TMPO 

#1,$TMP1 

MD ,RMCS10 

PC, GENBUF 

80$ 


: CHANGE WORD COUNT 
: CHANGE BUS ADDRESS 
STARTING ADDRESS 

; RANGE 

WRITE DATA 
GENERATE BUFF 


ER 
;SKIP TO WRITE OPERATION 


fF REAR RREAEEEREREREREEAEEREEEEAEEEREEEREEEEEEEREEEREEEEEEEE 


:LOOP #2 


70$: 
;PREPARE DEVICE FOR ot he OPERATION 
JSR PC, TSTPR 


80$: 


WRITE WRITE CHECK 


80$ 


350$ 
#SEEK!GO,RMCS10 





:PREPARE DEVICE FOR TEST 
DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER © SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERAT 
PACK ACKNOWLED VOLUME NOT VALID 
:VERIFY PACK ACKNOWL EDGE 
sRECALIGRATE IF SKI" OR “PIP'' IS SET 
i VERIFY RECAL IBRAT ION 
G0 TO 80$ IF NO E 
RETURN HERE IF ERROR 
:ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 350$ IF ERROR 


LOAD SEEK COMMAND 
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4 WRITE, WRITE CHECK W/ HEAD SWITCHING SEQ 0115 
1437 
1438 022110 004737 044500 JSR PC ,PUT :GO WRITE REGISTERS) WITH PUT SUBROUTINE 
022114 000404 BR 90$ :G0 TO 90$ IF NO ERROR 
022116 000240 NOP SRETURN HERE IF ERROR 
022120 104000 EMT ZERROR # DEFINED BY PUT SUBROUTINE 
022122 000137 022702 JMP 350$ :G0 TO 350$ IF ERROR 
1439 022126 90S: 
441 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
sate 022126 004737 044144 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
1443 :WAIT FOR COMMAND TO COMPLETE 
<A 022132 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
1445 :GO GET REGISTER STATUS 
1446 022136 004737 044230 JSR PC,GET 760 READ REGISTER(S) atiitH GET SUBROUTINE 
022142 BR 100$ 360 T 100$ IF NO ERR 
090240 NOP RETURN HERES IF ERROR 
04000 EMT TERROR # DEFINED BY GET SUBROUTINE 
022150 boot se 022702 JMP 350$ :G0 TO 350$ IF ERROR 
1447 022154 100$: 
1449 ZVERIFY RESULTS OF SEEK COMMAND 
1450 022154 004737 052344 JSR PC, SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
022160 000405 BR 116$ :G0_TO 110$ IF NO ERROR 
022162 000240 NOP ZRETURN HERE IF ERROR 
022164 104000 EMT TERROR # DEF INED BY SEKSTS SUBROUTINE 
022166 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
022170 000137 022702 JMP 350$ :G0 TO S508 IF ERROR 
1451 022174 110$: 
:WRITE DATA TO THE DRIVE 
454 022174 120$: 
1455 022174 012737 000061 001410 MOV #WD!GO,RMCS10 :WRITE DATA COMMAND 
022202 012702 001551 MOV #PUTINK,R2 [LOAD PUT REGISTER INDEX TABLE 
1457 022206 112722 000006 MOVB = ARMDA, (R2) + 
022212 112722 000034 MOVB  #RMDC.(R2)+ 
1489 022216 112722 000032 MOVB = ARMOF . (R2)+ 
1460 022222 112722 000004 MOVB  #RMBA. (R2)+ 
1461 022226 112722 000002 MOVB  #RMWC.(R2)+ 
1462 022232 112722 000000 MOVB  4#RMCS1, (R2)+ 
1463 022236 112722 000200 MOVB #200, (R2)+ : TERMINATE TABLE 
1465 022242 004737 044500 JSR PC PUT :60 GO WRITE R REGISTER(S) WITH PUT SUBROUTINE 
022246 04 BR 136$ 360 F NO ERROR 
022250 000240 NOP SRETURN HER Re IF ERROR 
022252 104000 EMT [ERROR # DEFINED BY PUT SUBROUTINE 
022254 000137 022702 JMP 350$ :GO TO 350$ IF ERROR 
1466 022260 130$: 
1468 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
nhs 022260 004737 044144 JSR PC, GETSTS 360 TO GETSTS SUBROUTINE 
1470 ;WAIT FOR COMMAND TO COMPLETE 
022264 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


1472 GO READ STATUS FOR WRITE COMMAND 
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T14 WRITE, WRITE CHECK W/ HEAD SWITCHING SEQ 0116 
1473 022270 004737 044230 JSR PC GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
022274 000404 BR 146$ :GO TO 140$ IF NO ERROR 
022276 000240 NOP SRETURN HERE IF ERROR 
022300 104000 EMT SERROR # DEFINED BY GET SUBROUTINE 
022302 000137 022702 JMP 350$ :G0 TO 350$ IF ERROR 
147% 022306 140$: 
1476 :CHECK FOR ERRORS DURING WRITE OPERATION 
1477 022306 004737 045226 JSR PC,PRIERR 7G0 CHECK FOR PRIMARY ERRORS 
022312 000405 156$ :GO TO 150$ IF NO ERROR 
022314 000240 NOP SRETURN HERE IF ERROR 
022316 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
022320 004736 JSR PC, a(SP)+ 760 BACK FOR MORE ERROR CHECKS | 
022322 000137 022702 JMP «350 :G0 TO 350$ IF ERROR 
1478 022326 150$: 
1479 022326 004737 057742 JSR PC,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
022332 000405 BR 160$ 760 TO 160$ IF NO ERROR 
022334 000240 NOP TRETURN HERE IF ERROR 
022336 104000 EMT TERROR # DEFINED BY DTASTS SUBROUT INE 
022340 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS | 
022342 000137 022702 JMP 350$ :GO TO 350$ IF ERROR 
1480 022346 160$: 
1481 022346 004737 046060 JSR PC,SECERR 3GO CHECK FOR SECONDARY ERRORS 
022352 000405 BR 186$ :GO0 TO 180$ IF NO ERROR 
022354 000240 NOP [RETURN HERE IF ERROR | 
022356 104000 EMT TERROR # DEF INED BY SECERR SUBROUTINE 
022360 004 JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
022362 000137 022702 JMP 350$ :GO TO 350$ IF ERROR 
1482 022366 1808: | 
1484 ; CHANGE LOOP ADDRESSES 
1485 022366 012737 022376 001124 MOV #190$,$LPERR 
1486 022374 10 200$ :SKIP TO NEXT OPERATION | 
1488 FF AERA REREREREEEKEEREREREREREREREKEREREREEEREREREKREKEREKEKEEEK 
1489 :LOOP #3 WRITE CHECK 
1491 022376 190$: ! 
1493 ;PREPARE DEVICE FOR READ pOPERAT ION 
1494 022376 004737 040472 JSR PC, TSTPR ;PREPARE DEVICE FOR TEST 
022402 154130 154130 :TASK DESCRIPTOR AS FOLLOWS: 
[SELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID | 
‘VERIFY PACK ACKNOWL E DGE 
SRECALIBRATE I SKI OR ‘PIP’' IS SET 
[VERIFY RECAL BRATION 
022404 000404 BR 200$ 760 TO 2 IF NO ERROR 
022406 000240 NOP TRETURN HERE IF ERROR 
022410 104000 EMT ZERROR # DEF INED BY TSTPRP SUBROUTINE | 
022412 000137 022702 JMP 350$ :G0 TO 350$ IF ERROR 
1495 022616 200$: 
1496 022416 012737 000005 001410 MOV #SEEK!GO,RMCS10 ;LOAD SEEK COMMAND 
1498 022424 004737 044500 JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE | 


a | 


N 9 
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T14 WRITE, WRITE CHECK W/ HEAD SWITCHING SEQ 0117 
022430 000404 BR 210 :G0_ TO 2108 IF NO. ERROR 
022432 000240 NOP RETURN HERE IF ERROR 
022434 104000 EMT , TERROR # DEFINED BY PUT SUBROUTINE 
022436 000137 022702 JMP 350$ 'G0 TO 350$ IF ERROR 
1499 022442 2108: | 
1501 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
len 022442 004737 044144 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
1503 :WAIT FOR COMMAND TO COMPLETE 
vei 022446 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE | 
1505 3GO READ REGISTER STATUS 
1506 022452 004737 044230 JSR PC,GET 60 READ REGISTER(S) WITH GET SUBROUTINE 
022456 000404 BR 220$ :G0_T 0 220$ IF NO ERROR 
022460 000240 NOP ‘RETURN HERE IF ERROR | 
022462 104000 EMT [ERROR # DEFINED BY GET SUBROUTINE 
022464 000137 022702 JMP 350$ :GO TO 350$ IF ERROR | 
1507 022470 220$: 
1509 :GO VERIFY RESULTS OF SEEK | 
1510 022470 004737 052344 JSR PC,SEKSTS :GO VERIFY RESULTS OF SEEK OPERATION 
022474 000405 BR 230$ [G0 TO 230$ IF NO ERROR | 
022476 000240 NOP [RETURN HERE IF ERROR | 
022500 104000 EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
022502 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
022504 000137 022702 JMP 350$ :GO TO 350$ IF ERROR 
1511 022510 230S: 
1513 “READ DATA FROM DEVICE | 
1514 022510 240$: | 
1515 022510 012737 000051 001410 MOV #WCD!GO,RMCS10 :READ DATA COMMAND 
1516 022516 012702 001551 MOV #PUTINX.R2 [LOAD PUT REGISTER INDEX TABLE 
1517 022522 112722 000006 MOVB #RMDA, (R2)+ 
1518 022526 112722 000032 MOVB  #RMOF. (R2)+ 
1519 022532 112722 000034 MOVB  #RMDC.(R2)+ 
1520 022536 112722 000004 MOVB * (R2)+ | 
1521 022542 112722 000002 MOVB  #RMWC. (R2)+ 
1522 022546 112722 000000 MOVB apcS| » (R2)+ | 
1323 022552 112712 .000200 MOVB #200, (R2) | 
1525 022556 004737 044500 JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
022562 000404 BR 2508 360 TO 250$ IF NO ERROR 
022564 000240 . NOP TRETURN HERE IF ERROR 
022566 104000 EMT SERROR # DEFINED BY PUT SUBROUTINE | 
022570 000137 022702 JMP 350$ [G0 TO 350$ IF ERROR 
1526 022574 250$: | 
1528 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
hat 022574 004737 044144 JSR PC, GETSTS 7G0 TO GETSTS SUBROUTINE 
1530 ;WAIT FOR COMMAND TO COMPLETE 
ian 022600 004737 045042 JSR PC, TIMOUT 3GO TO TIMOUT SUBROUTINE | 
1332 3GO READ STATUS FOR READ OPERATION 


33 022604 004737 044230 JSR PC,GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
022610 000404 BR 260$ 7G0 TO 260$ IF NO ERROR 
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WRITE, WRITE CHECK W/ HEAD SWITCHING SEQ 0118 | 
022612 000240 ;RETURN HERE IF ERROR 
022614 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
022616 000137 022702 JMP 350$ :G0 TO 350$ IF ERROR | 

i 334 022622 260S: | 

1536 :CHECK FOR ERRORS DURING READ OPERATION | 

1537 022622 004737 045226 JSR PC PRIERR :60 CHE Ck FOR PRIMARY ERRORS | 
022626 000405 276$ 0 270$ IF NO ERROR | 
022630 000240 NOP RETURN HERES iF ERROR 
022632 104 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
022634 004 JSR PC, a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
022636 000137 022702 JMP 350$ :G0 TO S508 IF ERROR 

1538 022642 270S: 

1539 022642 004737 057742 JSR PC ,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
022646 000405 BR 280$ :GO TO 280$ IF NO ERROR 
022650 000240 NOP [RETURN HERE IF ERROR 
022652 104000 EMT ERROR “ DEFINED BY DTASTS SUBROUTINE 
022654 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS | 

1540 2o3828 000137 022702 tT 350$ 3G0 TO 350$ IF ERROR | 

1541 022662 004737 046060 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
022666 000405 BR 300$ :G0_TO 300$ IF NO ERROR 
022670 000240 NOP RETURN HERE IF ERROR 
022672 104 EMT ERROR “ DEFINED BY SECERR SUBROUT INE 
022674 004736 JSR PC ,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
022676 000137 022702 JMP 350$ :GO TO 350$ IF ERROR 

1 542 022702 300$: 

1344 022702 350$: 

1546 FF ARR EREREEEEKEEKEEEEEREEEEEEEKEREREKEEEREREREREREEEREREREKEKE 

;*TEST 15 WRITE, WRITE CHECK W/ MID-TRANSFER SEEK 

{RRRRRAARERRERRREREREERERERERRRRRRRRRRRRRRRR ERE REE | 
22702 78115: 
022702 SCOPE SCOPE CALL 
22704 000240 NOP :START OF TEST 
22 012706 001100 MOV ASTACK, SP ZINITIALIZE STACK POINTER | 
022712 013700 001276 MOV $BASE ,RO [RO = UNIBUS ADDRESS 
022716 013701 001464 MOV TSTQUE ,R1 RI) = DEVICE BEING TESTED 

i 022722 012737 000015 001226 MOV #15, $TESTN T TEST NUMBER IN APT MAIL BOX 

1548 SF AAA EEEEEEEEEEEEKERREEREERREEEEKEEEEREEEEEKEKEEEE | 

1349 :LOOP #1 FORMAT,WRITE,WRITE CHECK | 

1551 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 

1552 022730 10$: 

1553 022730 012737 001444 MOV #0,RMDCO :CYLINDER = 0 

1554 022 013737 001332 001416 15$: MOV LSTRK,RMDAO :SET LAST TRACK AND 

1555 022744 112737 000037 001416 MOVB #31. ,RMDAO [LAST SECTOR 

1556 022752 012737 01 001442 MOV #FMT16,RMOFO :16 BIT FORMAT 

1557 022760 012737 106314 001414 MOV #BUF ONE , RMBAO [BUS ADDRESS 

1558 022766 012737 176774 001412 MOV #258. £2, RMWCO sWORD COUNT FOR 2 SECTORS (2° COMP) | 

1359 022774 012737 001410 MOV WH! GO,RMCS10 [WRITE HEADER AND DATA COMMAND 

1561 ;VERIFY THAT SECTOR IS NOT BAD 
023002 004737 041416 JSR PC BADSCT :CALL BAD SECTOR MODULE | 
023006 000405 20$ :GO TO 20$ IF NO ERROR 

| 
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023172 
1592 023176 
1593 


50$: 


T15 WRITE, WRITE CHECK W/ MID-TRANSFER SEE SEQ 0119 
023010 104401 070230 TYPE _,SCTMSG :TYPE BAD SECTOR MESSAGE 
023014 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
023016 000137 023724 JMP 350$ 7GO TO 350$ IF ERROR 
1562 023022 20S: 
1563 023022 123737 001417 001333 CMPB —s- RMDAO+1, LSTRK+1 z1S LAST TRACK ASSIGNED ? 
1564 023030 001342 BNE $ ‘BR IF NO 
1565 023032 012737 071730 001174 MOV #ZEROS $TMPO STARTING ADDRESS OF PATTERN 
1566 023040 012737 000001 001176 MOV #1,$TMP1 SRANGE OF PATTERN 
1367 023046 004737 043344 JSR PC. GENBUF G0 GENERATE BUFFER FOR FORMAT 
1569 :PREPARE THE DEVICE FOR FORMAT OPERATION 
1570 023052 004737 040472 JSR PC, TSTP ;PREPARE DEVICE FOR TEST 
023056 154130 WORD NS4130 ‘TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
‘CLEAR CONTROLLER & SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
: AC DGE IF VOLUME NOT VALID 
SVERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF ‘SKI’ OR 'PIP’' IS SET 
‘VERIFY RECALIBRATION 
023060 000404 BR 253 :GO TO 25$ ERROR 
023062 000249 NOP *PETURN HERE IF ERROR 
023064 104 EMT TERROR # DEFINED BY (STPRP SUBROUTINE 
023066 000137 023724 JMP 350$ *GO TO 350$ IF ERROR 
1571 023072 25$: 
ieee ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
1574 023072 012702 001551 MOV #PUTINX,R2 :R2 = BYTE ENTRY POSITION 
1575 023076 112722 000034 MOVB  #RMDC, (R2)+ 
1576 023102 112722 000006 MOVB  #RMDA, (R2)+ 
1577 023106 112722 000004 MOVB > (R2)+ 
1578 023112 112722 000002 MOVB  A#RMWC,(R2)+ 
1579 023116 112722 000032 MOVB * (R2)+ 
1580 023122 112722 000000 MOVB wR (R2)+ 
1581 023126 112712 000200 MOVB #200, (R2) s TERMINATE TABLE 
1582 023132 30S: 
1583 023132 004737 044500 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
023136 000404 BR 40$ 760 TO 40$ IF NO ERROR 
023140 000240 NOP SRETURN HERE IF ERROR 
023142 104 EMT TERROR # DEFINED BY PUT SUBROUTINE 
023144 000137 023724 JMP 350$ 'GO TO 350$ IF ERROR 
1 584 023150 40S: 
1586 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
won 023150 004737 044144 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
1588 ;WAIT FOR COMMAND TO COMPLETE 
‘a 023154 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
1590 :GO READ STATUS FOR FORMAT OPERATION 
1591 023160 004737 044230 JSR PC, GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
023164 000404 BR 50$ 360 TO 50$ IF NO ERROR 
023166 000240 Noe “RETURN HERE IF ERROR 
023170 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
3172 000137 023724 JMP 350$ ‘GO TO 350$ IF ERROR 


See a I 
eee AO 
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WRITE, WRITE C 


1594 

1595 023176 
023202 
02 
023206 
023210 
023212 

1596 023216 

1597 


1598 
1599 023216 
1600 


ae ad dd ed ed 
22S 
aad cad Sad aad ad cn 
QuUBWN—oO 

oOo 

Oy 

N 

So 


023276 
023300 
023302 
023304 
023310 


1699 023352 
1631 023356 
023362 
023364 


004 
154130 


TST 3 


057742 


023724 


023270 


040472 


023724 
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001410 


CHECK W/ MID-TRANSFER SEEK 


VERIFY NO ERRORS DURING FORMAT 
PC,DTASTS 


JSR 

BR 60$ 

NOP 

EMT 

JSR PC,a(SP)+ 
JMP 350$ 


60$: 


GO VERIFY RESULTS OF DATA TRANSFER 
G0 TO 60$ IF NO ERROR 


RETURN HERE IF ERROR 

; ERROR # DEFINED BY DTASTS SUBROUTINE 
;GO BACK FOR MORE ERROR CHECKS 

760 TO 350$ IF ERROR 


:MOVE “= ADDRESSES TO PrRAL OPERATION 


#70$,$LPE 


istaeenag —. 


se. oy Rec 
ABUF MBAO 


0 


WRITE DATA 
CHANGE WORD COUNT 

; CHANGE BUS ADDRSS 

PATTERN ADDRESS 

PATTERN RANGE 


SKIP TO WRITE OPERATION 


SERRE REERERERKEKEEEEEREEEKEERERKEEREEREEEKRKEKEEK 


WRITE WRITE CHECK 


‘Loop #2 
70$: 


:PREPARE DEVICE FOR i OPERATION 
JSR 45 TSTPR 
- WORD 


BR 


NOP 
EMT 
JMP 


80$: 


154130 


80$ 


350$ 


;WRITE DATA TO THE DRIVE 
120$: 


MD! GO, ine 


#200, (R2)+ 
PC,PUT 


130$ 


PREPARE DEVICE FOR TEST 
: TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'’ OR 'PIP’’ IS SET 
enn RECAL IBRATION 
:GO TO 80$ IF NO ERROR 
RETURN By IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 350$ IF ERROR 


WRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


: TERMINATE TABLE 


:GO WRITE ST ak che WITH PUT SUBROUTINE 
:GO_TO 150$ IF NO ERROR 
RETURN HERE IF ERROR 


SEQ 0120 


0 6 
1640 023422 
1641 


1642 
1643 023422 
023426 


36 
1644 023442 


0 6 
1648 023502 
1649 
1650 
1651 023502 
1652 023510 
1653 
1654 
1655 
1656 
1657 023512 
1658 
1659 
1660 023512 
023516 





‘0 ee FCT 
ITE, WRITE 


Meats 
137 


012737 
000410 


004737 
154130 


ST 3 
HEC 
023724 


044144 
045042 


044230 
023724 


045226 


023724 
057742 


023724 
046060 


023724 


023512 


040472 
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K W/ MID=-TRANSFER SEEK 


001124 


EMT yERROR # DEFINED BY PUT SUBROUTINE 
1308 JMP 350$ :G0 TO 350$ IF ERROR 


; SETUP i # INDEX TABLE 19 READ ALL REGISTERS 


PC,GETSTS 3GO0 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
140$ :GO TO 140$ IF NO ERROR 
NOP TRETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
140$: 
ZCHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC,PRIERR 7GO CHECK FOR PRIMARY ERRORS 
BR 150$ :GO TO 150$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR “ DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE CHECKS 
ea JMP 350$ 7GO TO 350$ IF ERROR 
" <YSR PC ,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ :G0_TO 160$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ERROR " DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE CHECKS 
ti JMP 350$ :GO0 TO 350$ IF ERROR 
gn PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
BR 180$ :G0_TO 180$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR “ DEF INED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
JMP 350$ :GO TO 5508 IF ERROR 
180$: 
;CHANGE LOOP ADDRESSES 
MOV #190$, SLPERR 
BR 200$ ;SKIP TO NEXT OPERATION 
CIERRA EEE REE EEEEEEEEREEEREREEEEEEREREEREEEEERERKER 
:LOOP #3 WRITE CHECK 
190$: 
;PREPARE DEVICE FOR READ OPERATION 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
“BORD 154130 : TASK DESCRIPTOR AS 


FOLLOWS : 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERA 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 


SEQ 0121 


RAE Tbs, AT EARS NOE FPS dipeptide 
—™ ve 3/ ' .: TST 3 MACRO V03.01_ 11-APR=80 13:39:53 PAGE 12-51 


HECK W/ MID=TRANSFER SEEK SEQ 0122 


SEE SERE 
oO 


023700 
1690 023704 


023724 


023724 


044144 


045042 


044230 


023724 


045226 


023724 
057742 


023724 


001410 


200$: 
ieee DATA FROM DEVICE 


240: 


2508: 


BR 
NOP 


EMT 
JMP 


NOP 
EMT 


2008 


350$ 


#WCD!GO,RMCS10 
PUT INX ,R2 


2 ( 
#RMCS1, (R2)+ 
#200, (R2) 


PC,PUT 
250$ 


350$ 


s VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'' OR ‘PIP'' IS SET 


;G0 TO 200 

27: Mag HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 350$ IF ERROR 


READ DATA COMMAND 
LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO_TO 250$ IF NO ERROR 

;RETURN HERE IF ERROR 

;ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 350$ IF ERROR 


; SETUP a INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


:WAIT FOR COMMAND TO COMPLETE 


260$: 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO_ TO 260$ IF NO ERROR 


RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
7GO TO 350$ IF ERROR 


:CHECK FOR ERRORS DUP ING READ OPERATION 
PRIERR 


270$: 


JSR PC, TIMOUT 
;GO READ STATUS FOR READ OPERATION 

JSR PC,GET 

BR 260$ 

NOP 

EMT 

JMP 350$ 

JSR PC 

BR 2708 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350s 

JSR PC,DTASTS 

BR 280$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350$ 


280$: 


:GO CHECK FOR oy ERRORS 

60 TO 270$ IF NO ERROR 

RETURN HERE IF ERROR 

; ERROR a td BY PRIERR =: eaten 
;GO BACK FOR MORE ERROR CHECKS 

:GO TO 350$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:G0 TO 280$ IF NO ERROR 


RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
FOR MORE ERROR CHECKS 


:GO BACK 
:GO TO 350$ IF ERROR 
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T WRITE, WRITE CHECK W/ MID-TRANSFER SEE SEQ 0123 
1691 023704 004737 046060 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
023710 000405 BR 300$ :GO TO 300$ IF NO ERROR 
023712 90024 0 NOP TRETURN HERE IF ERROR 
023714 104000 EMT TERROR # DEF INED BY SECERR SUBROUTINE 
023716 004736 JSR PC, a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
023720 000137 023724 JMP 350$ :GO TO 350$ IF ERROR 
1692 023724 300$: 
1693 
1694 023724 350$: 
SERA REE EEEEEEEE REE AREREREREREREEEREREREREKEEKEEE 
ATEST 16 WRITE, READ W/ HCE ERROR 
FEAR EERERKEEREREEEEEEKEEEEEREEEEEREREEEKEEKEEEE 
023724 S116: 
023724 000004 SCOPE : SCOPE CALL 
023726 000240 NOP SSTART OF TEST 
730 012706 001100 - MOV #STACK,SP SINITIALIZE STACK POINTER 
023734 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
023740 013701 001464 MOV TSTQUE ,R1 :(R1) = DEVICE BEING TESTED 
Seis 023744 012737 000016 001226 MOV #16,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
1698 SE EAE REEEAEEEREKERERERERERREREEEEREEEEEEEEKEEEEEEKE 
ise ;LOOP #1 FORMAT ,WRITE,READ 
1701 023752 012704 000000 MOV #O.R4 :R4 = 1ST HEADER WORD 
1702 023756 012703 000001 10$: MOV #1,R3 ‘R3 = HCE BIT 
1703 023762 15$: 
1705 yPREPARE THE DEVICE FOR FORMAT OPERATION 
1706 023762 004737 040472 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
023766 154130 .WORD 154130 :TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
“RECALIBRATE IF '‘SKI'' OR ‘PIP’' IS SET 
SVERIFY R CALIBRATI ION 
023770 000404 BR 208 [GO TO 20$ IF NO ERROR 
023772 000240 NOP ZRETURN HERE IF ERROR 
023774 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
ae 023776 000137 025572 JMP 370$ :GO TO 370$ IF ERROR 
1708 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
1709 024002 20$: 
1710 024002 012737 000000 001444 MOV #0,.RMDCO ZCYLINDER = 0 
1711 024010 012737 000000 001416 MOV #0. RMDAO [TRACK = 0, SECTOR = 0 
1712 024016 012737 106314 001414 MOV #BUF ONE , RMBAO :BUS ADDR ESs 
1713 0246024 012737 177376 001412 MOV #-258. ,RMWCO ie + 256. WORDS (2°S COMP) 
1714 024032 012737 010000 001442 MOV #FMT16,.RMOFO  :16 BIT FORMAT 
1715 024040 012737 000063 001410 MOV WWH'GO.RMCS1O :WRITE HEADER AND DATA COMMAND 
1717 ;VERIFY THAT SECTOR IS NOT BAD 
024046 004737 041416 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
024052 000405 BR 25$ 7GO0 TO 25$ IF NO ERROR 
024054 104401 070230 TYPE , SCTMSG [TYPE BAD SECTOR 


ME SSAGE 
024060 104000 EMT ERROR # DEFINED BY BADSCT SUBROUTINE 
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WRITE, READ W/ 


2 


Ber 


2 
024074 
024102 


NNN NNN NNN 
SROVTS 
UWS 
oo 
Mn 
ae 
—_ 

— 
~m 


Nm 
N 
2 
& 
os 
ies) 
o 


8 024122 


Bau 


31 024126 


W 
wae 
ooo 
RRL 
aS 
— 
Wh 
mo 


NNNNNNNNNSN 
BAK ro 
oO 
™ 
* 
and and ad 
ROK 


ee ee a a ee ee ae ed a a ced ae ed ed ad add 
WN 
SEN 
Remy 
PS? oP oe 
aad ad 
Sev 
On 


NN 
oo 
s 
& 


0 6 
1754 024252 
1755 
175 
17 
175 


6 
57 024252 
8 024260 





000137 


012737 
012737 
004737 


012737 
000410 


TST San 
HCE E 


025420 
071730 
000001 
043344 


106314 
106314 
106314 
001551 
000034 
000002 
000032 
000000 
000200 
044500 


025420 


044144 
045042 


044230 
025420 


057742 


025420 
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117: 
117 


4 
6 


024262 001124 


:GO TO 350$ IF ERROR 


STARTING ADDRESS OF PATTERN 
sRANGE OF PATTERN 
GO GENERATE BUFFER FOR FORMAT 


HEADER WORD TO FORCE HCE DURING WRITE & READ 
BIT R3 BUF 


SET OR RESET FOR HCE?? 


RESET BIT FOR HCE 
SET FOR HCE 


500 PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 


JMP 350$ 
25$: 
MOV #ZEROS , STMPO 
MOV #1,$TMP1 
JSR PC, GENBUF 
3 CHANGE 
ONE (R4) 
BEQ 6 
BIC R3,BUF ONE (R4) 
BR 27$ 
263: BIS R3,BUF ONE (R4) 
MOV APUTINX,R2 
MOVB ARMDC , (R2)+ 
MOVB ARMDA, (R2) + 
MOVB #RMBA , (R2) + 
MOVB MRMWC , (RZ) + 
MOVB ARMOF , (R2) + 
MOVB #RMCS1, (R2)+ 
MOVB #200, (R2) 
30$: 
JSR PC ,PUT 
BR 40$ 
NOP 
EMT 
JMP 350$ 
40$: 


:R2 = BYTE ENTRY POSITION 


; TERMINATE TABLE 


:GO WRITE gig ltt WITH PUT SUBROUTINE 
:GO_ TO 40$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 


360 TO 350$ IF ERROR 


; SETUP i ® INDEX TABLE TO READ ALL REGISTERS 


WAIT st ™ ay TO COMPLETE 


50$: 
; VERIFY 


60$: 


NOP 
EMT 

JMP 350$ 

NO ERRORS DURING FORMAT 
JSR PC DTASTS 

BR 60$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350$ 


PC,GETSTS 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 50$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

:GO TO 350$ IF ERROR 


:GO VERIFY na OF DATA TRANSFER 
:GO0 TO 60$ IF NO ERROR 

;RE TURN HERE. IF ERROR 

ERROR # Pen leee BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:GO TO 350 IF ERROR 


:MOVE seg Teed, TO NEXT OPERATION 


#70$,$LPERR 
80$ 


:SKIP TO WRITE OPERATION 


SEQ 0124 


i: 
CZRMOAO RMOS/3/2 FCTNL 


WRITE, READ W/ 


17 

1763 024262 

1764 

1765 

1766 024262 
024266 


024270 


024276 
1767 024302 
1768 
1769 
1770 024302 


— — —_— —_—— 


004737 
154130 


000404 
000240 
104009 
000137 


012737 


TST 3 





I 10 
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HCE ERROR 


040472 


025420 


025420 


044144 


045042 


044230 


025420 


SAAR ARERR EERE AEA ERE 


: LOOP #2 


70$: 


; PREPARE Fes FOR wis OPERATION 


80$: 


BR 


NOP 
EMT 
JMP 


WRITE ,READ 


PC, TSTPR 
154130 


sPREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
VERIFY RECALIBRATION 

80$ 360 T 


ERROR 
: # DEF INED BY TSTPRP SUBROUTINE 
350$ :G0 TO 350$ IF ERROR 


;WRITE DATA TO THE DRIVE 
120$: 


130$: 


BUF ONE +4 ,RMBAO ; CHANGE BUS ADDRESS 
#~256. ,RMWCO : CHANGE WORD COUNT 

[WRITE DATA COMMAND 

;LOAD PUT REGISTER INDEX TABLE 


( 
WRMCS1, (R2)+ 
#200, (R2)+ TERMINATE TABLE 


PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
130$ *GO TO 130$ IF RROR 

[RETURN HERE IF WeRnOR 

TERROR # DEFINED BY PUT SUBROLITINE 
3508 :GO TO 350$ IF ERROR 


: SETUP “. INDEX TABLE TO READ ALL REGISTERS 


WAIT =, eae | oc timeore 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


140$: 


BR 


NOP 
EMT 
JMP 


PC,GETSTS :GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


3GO READ REGISTER(S) WITH GET SUBROUTINE 
140$ :G0 TO 140$ IF NO ERROR 

“RETURN HERE IF ERROR 

TERROR # DEFINED BY GET SUBROUTINE 
350$ :GO TO 350$ IF ERROR 





SEQ 0125 


RMOAQ te” fh FCTNL 
WRITE, READ W/ 


796 
797 
798 0 
799 
1800 
801 
802 
803 024460 
804 
805 
806 
807 
808 0 
809 


024444 


024450 
024450 
024452 


— Ss SS SS SS SS YS oS SI SYS ss SI SOS 


0302.69 
NO 
oS 


0 00 C0 Co C0 CO Co 
— Yo et I SY 
ODONAUSW 

(=) 

™ 

S 

rm 


MEW 


ReRRRRRResessese 


ge 
So 
3 





005704 
001006 


032703 
001037 
032703 
001061 


032737 
001102 





TST 3 
HCE E 


045226 


025420 


010000 
140000 


000200 


057742 


025420 
001350 
000200 
001174 


001174 
001176 


025420 
000020 


057742 


025420 
000020 
001350 
025420 


001350 


001350 





; CHECK aA ERRORS cchmicn ot ny fe 


VERIFY 
146$: 


150$: 


151$: 


; VERIFY 
155$: 


160$: 
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FOR PRIMARY ERRORS 
739 TO 145$ IF NO ERROR 


IF ERROR 
Hy 4 Pea re BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
G0 TO “508 IF ERROR 


TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3 


‘3 Ye THE FIRST HEADER WORD ? 


at FER BE SET ? 
‘veeit BSE BE SET ? 


THAT A HEADER COMPARE ERROR WAS DETECTED 


SADJUST NUMBER. 


WAS HCE DETECTED ?? 
SVS ¢: 


:GO ven tS way OF DATA TRANSFER 

:GO TO 150$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS — 
K_FOR MORE ERROR CHECK 


:GO BACK FOR 

GO TO 350$ IF ERROR 
RECEIVED STATUS 
EXPECTED STATUS 
;R4 = HEADER WORD NUMBER AND 


3R3 = BIT POSIITON 


-WAS FER DETECTED ?? 
YES I 


G0 a A ees OF DATA TRANSFER 

;GO TO 160$ IF NO ERROR 

RETURN HERE IF ERROR 

; ERROR # DEFINED BY DTASTS 7 iat 
BACK FOR E ERROR CHECKS 

:60 TO 350$ IF ERROR 


sEXPECTED STATUS 
RECEIVED STATUS 


PC,PR 
145$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350$ 

THE 

TST R4 

BNE 146$ 

BIT #FMT16,R3 

BNE 

BIT #MSE !USE,R3 

BNE 165$ 

BIT #HCE ,RMER11 

BNE 175$ 

JSR PC ,DTASTS 

BR 150$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350s 

MOV RMER11,$8DDAT 

MOV #HCE , $GDDAT 

MOV R4, $TMPO 

BNE 151$ 

INC $TMPO 

MOV R3,$TMP1 

EMT 344 

JMP 350$ 

THAT A FORMAT ERROR WAS DETECTED 

BIT #FER,RMER1I 

BNE 175$ 

JSR PC DTASTS 

BR 160$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350s 

MOV #FER,SGDDAT 

MOV MERIT, SBDDAT 

EMT 

JMP 350$ 


VERIFY THAT A BAD SECTOR ERROR WAS DETECTED 


SEQ 0126 


—_ 
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1836 024632 165$: 
1837 04652 032737 100000 001376 BIT #BSE ,RMER2I :WAS BSE DETECTED ?? 
1838 024640 001021 BNE 175$ SYES |! 
1840 024642 004737 057742 JSR PC ,DTASTS 760 VERIFY RESULTS OF DATA TRANSFER 
024646 000405 BR 170$ :G0 TO 170$ IF NO ERROR 
024650 000240 NOP “RE TURN HERE. iF ERROR 
024652 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
024654 004736 JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
024656 000137 025420 JMP 350$ :G0 TO S508 IF ERROR 
1841 024662 170$: 
1842 024662 013737 001376 001142 MOV RMER21,$BDDAT RECEIVED STATUS 
1843 024670 012737 100000 001140 MOV #BSE, $GDDAT TEXPECTED STAIUS 
1844 024676 104345 EMT 345 
1845 024700 000137 025420 JMP 350s 
1847 ;CHECK FOR OTHER ERRORS 
1848 024704 175$: 
1849 024704 004737 046060 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
024710 000405 BR 180$ :G0_ TO 180$ IF NO ERROR 
024712 000240 NOP SRETURN HERE IF ERROR | 
024714 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
024716 004736 JSR PC. a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
024720 000137 025420 JMP 350$ :GO TO 350$ IF ERROR | 
1850 024724 180$: 
1852 ; CHANGE LOOP ADDRESSES 
1853 024724 012737 024732 001124 MOV #190$, SLPERR 
1855 53 SARA EREEEEREKEEEEEEREEREEEREEREEEREREREREEEEEREKRK 
1856 :LOOP #3 READ 
1857 
1858 024732 190$: | 
1860 PREPARE DEVICE FOR READ OPERATION | 
1861 024732 004737 040472 PC, Ist PRP ; PREPARE DEVICE FOR TEST 
024736 154130 JSORD 154130 ZTASK DESCRIPTOR AS FOLLOWS: 
[SELECT DEVICE i VERIFY DEVICE AVAILABLE | 
ZCLEAR CONTROLLER & SELECT DEVICE | 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID | 
:VERIFY PACK ACKNOWL ED GE 
SRECALIBRATE IF SKI OR ‘PIP’ IS SET 
[VERIFY RECALIBRATI | 
024740 000404 BR 200$ 360 TO 200$ IF NO ERROR 
024742 000240 NOP “RETURN HERE IF ERROR | 
024744 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
024746 000137 025420 JMP 350$ 760 TO 350$ IF ERROR 
1862 024752 2008: 
1864 -READ DATA FROM DEVICE 
1866 094983 012737 107326 001414 2408: MOV BUF TWO+4.RMBAO ; CHANGE BUS ADDRESS 
1867 024760 012737 177400 001412 MOV 4-256. , RMWCO WORD COUNT 
iss Goeree Srae ras) ONT FY EER RESTO AE PATAREOTENR nace Tae 
1870 025000 115995 000006 MOVB = ARMDA, (R2)+ 
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6 WRITE, READ W/ HCE ERROR SEQ 0128 — 





1871 025004 112722 000032 MOVB = #RMOF, (R2)+ 

187% 025010 116728 000034 MOVB  #RMDC.(R2)+ 

1873 025014 112722 000004 MOVB * (R2) 

1874 025020 112722 000002 MOVB = #RMWC.. (RO) + 

1875 025024 112722 000000 MOVB  #RMCS1 gshe* 

187% 025030 112712 000200 MOVB = #200, (R2) 

1878 025034 004737 044500 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
025040 000404 BR 250s :GO TO 250$ IF NO ERROR 
025042 000240 ZRETURN HERE IF ERROR 
025044 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
025046 000137 025420 JMP 350$ :GO TO 350$ IF ERROR 

1879 025052 250$: 

1881 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

iene 025052 004737 044144 JSR PC, GETSTS 3G0 TO GETSTS SUBROUTINE 

1883 :WAIT FOR COMMAND TO COMPLETE 

lend 025056 004737 045042 JSR PC, TIMOUT 3GO TO TIMOUT SUBROUTINE 

1885 :GO READ STATUS FOR READ OPERATION 

1886 025062 004737 044230 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
025066 0004 BR 260$ :GO0 TO 260$ IF NO ERR RROR 
025070 000240 NOP ‘RETURN MERE IF ERR 
25072 104 EMT TERROR # DEFINED BY Ofer SUBROUT INE 
025074 000137 025420 JMP 350$ :GO TO 350$ IF ERROR 

1887 025100 260S: 

1889 ;CHECK FOR ERRORS DURING READ OPERATION 

1890 025100 004737 045226 JSR PC,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
025104 000405 265$ 360 TO 265$ IF NO ERROR 
025106 000240 NOP RETURN HERE IF ERROR 
025110 104000 EMT TERROR # DEF INED BY PRIERR SUBROUTINE 
025112 004 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
025114 000137 025420 JMP 350$ :GO TO Ss0s IF ERROR 

1891 025120 265$: 

1892 025120 005704 TST R4 71S THIS THE FIRST HEADER WORD ? 

1893 025122 001006 BNE 266$ [NO !! 

1895 025124 032703 010000 BIT #FMT16,R3 :SHOULD FER BE SET ? 

18% 0°5130 001037 BNE ? “YES ! 

1897 025132 032703 140000 BIT #MSE ' USE R3 : SHOULD BSE BE SET ? 

1898 025136 001061 BNE 285$ Yes ! 

1900 : VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED 

1901 025140 266$: 

1902 025140 032737 000200 001350 BIT #HCE ,RMER11 sWAS HCE DETECTED ?? 

1903 025146 00110 BNE 295$ TYES !! 

1905 025150 004737 057742 JSR PC .DTASTS :G0 GO VERIFY RE RESULTS OF DATA TRANSFER 
025154 000405 BR 270$ NO ERROR 
025156 000240 NOP RETURN HERE. iF ERROR 
025160 104000 EMT TERROR “ DEFINED BY DTASTS SUBROUTINE 
025162 004736 JSR PC,a(SP)+ 7GO BACK £ ERROR CHECKS 
025164 000137 025420 JMP 350s :G0 TO Ssos IF ERROR 

1906 025170 270$: 

1907 025170 013737 001350 001142 MOV RMER1I1,$8DDAT  ;RECEIVED STATUS 


16 


RMOAO RMO5/3/2 FCTNL 


a a a dt os ss 
Soooocoo 


Oo 
38 
So 

nN 

8 Ww 
4 

o 


0. 
1922 025260 
1923 Osesee 


1928 

1929 025302 

1930 025302 

1931 025310 

1932 

1933 025312 
025316 


1937 
1938 025350 
1939 


1940 
1941 025354 
1942 path: 


ITE, READ W/ 


012737 


3 


TST 
HCE ERROR 


000200 
001174 


001174 
001176 


025420 
000020 


057742 


025420 
000020 
001350 
025420 
100000 


057742 


025420 
001376 
100000 


000350 


046060 


025420 


000002 





001140 


001350 


001376 


271$: 


; VERIFY 


375$ 


280$: 


; VERIFY 


285$ 


290$: 


M1 
MACRO VO03.01 11=APR~80 13:39:53 PAGE 19-58 


MOV rte TO» vat 4 hale STATUS 


T 
MOV $TMPO [R4 = HEADER WORD NUMBER AND 
BNE 271$ ‘ADJUST NUMBER. 

INC $TMPO 

MOV R3,$TMP1 :R3 = BIT POSITION 

EMT 344 

JMP 350$ 


THAT A FORMAT ERROR WAS DETECTED 
BIT #FER,RMER1I WAS FER DETECTED ?? 
BNE 295$ sVES !: 


JSR PC ,DTASTS :GO VERIFY 
BR :GO TO 


280$ [G0 TO 2808 I 
NOP [RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
JMP 350$ :GO0 TO 350$ IF ERROR 
MOV #FER, SGDDAT ZEXPECTED STATUS 
Mov RiI,$BDDAT RECEIVED STATUS 
JMP 350$ 


THAT A BAD SECTOR ERROR WAS DETECTED 


BIT MBSE ,RMER21 WAS BSE DETECTED ?? 
BNE 295$ sVES 33 


JSR PC ,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 290$ :G0 TO 290$ IF NO ERROR 

NOP [RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 

JMP 350$ 7G0 TO 350$ IF ERROR 

MOV RMER2I,$BDDAT  ;RECEIVED STATUS 

MOV #BSE, $GDDAT ZEXPECTED STAIUS 

EMT 345 

JMP 350 


:CHECK FOR OTHER ERRORS 
595$: 


300$: 





JSR PC, SECERR 3GO CHECK FOR SECONDARY ERRORS 
BR 300$ 760 TO IF NO ERROR 


NOP RETURN IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

JMP 350$ :G0 TO 350$ IF ERROR 

ASL R3 :SHIFT TO NEXT BIT 

BNE 3108 [REPEAT IF NOT DONE 

TST RG 7SECOND HEADER WORD DONE?? 

BNE 350$ YES! ! 


[SETUP FOR 2ND HEADER WORD 


MOV #2,R4 


RESULTS OF DATA TRANSFER 
F_NO ERROR 





SEQ 0129 











CZRMOAO RMOS/3/2 FCTNL 
T16 WRITE, READ W/ 
1950 025410 012703 
1951 025414 
1952 025414 000137 
1953 025420 
1954 025420 000464 
1955 
1956 
1957 
1958 025422 
1959 025422 012737 
1960 025430 012737 
1961 025436 012737 
1962 025444 012737 
1963 025452 004737 
1964 
1965 025456 73 
025462 054130 
025464 0004 
025466 000240 
025470 104 
025472 000137 
1 025476 
1967 025476 012737 
1968 025504 012702 
1969 025510 112722 
1970 025514 112722 
0255. 112722 
1972 025524 112722 
0255 112722 
1974 025534 112722 
1975 025540 112722 
1976 025544 004737 
025550 000404 
025552 000240 
025554 104 
025556 000137 
1977 025562 000240 
1978 025564 004737 
1979 025570 000240 
1980 025572 
1981 
1982 
025572 
025572 
025574 000240 
025576 012706 
025602 013700 
025606 013701 
025612 012737 


TST inn 
HCE E 


000001 
023762 


177776 
010000 
106314 
043344 
040472 


025476 


025572 
045042 


N 10 
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310$: 
350$: 


MOV 


#1 ,R3 
15$ 
370$ 


:SETUP FOR HCE 


sEXIT IF ERROR 


IIIT TtTITITIT ITE TT TI TTL TT Ti TTTTTiTiTTTTTe TILT TTT TTT TTTTiT 


¢ RREFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 


SURE EEEEEEEEKEEHERREEERAEEREEEEEREEKREEREEEE 


5s: 


360$: 


001410 


365$: 


370$: 


#=2 ,RMWCO 
#FMT16,RMOFO 
WBUF ONE , RMBAO 
#WH.RMCS10 

PC, GENBUF 


PC, TSTPRP 
054130 


360$ 


3608 
#WH!GO,RMCS10 
R2 


#200, (R2)+ 
PC ,PUT 
365$ 

370$ 

PC, TIMOUT 


ONLY TWO HEAD WORDS 

ALWAYS IN 16 BITS MODE 

;BUFFER ADDRESS, BATA com THE SECTOR 
:WRITE HEAD AND A COMMAND 

SET UP THE BUFF PR 


PREPARE DEVICE FOR TEST 

: TASK DESCRIPTOR AS FOLLOWS: 

[CLEAR CONTROLLER & SELECT DEVICE 
onary CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 

;RECALIBRATE IF tin © *PIP’’ IS SET 
;VERIFY_RECALIBRATI 

;GO 360$ 


R IF ERR 
sERROR # DEFINED BY TSTPRP SUBROUTINE 
G0 TO 360$ IF ERROR 


FORMAT THE SECTOR 
SET UP THE REGS 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
7G0 TO 365$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 370$ IF ERROR 


:WAIT FOR FINISH 


SSAA EEEEEEREREREERERAEERARARERAEEAEERAEEEEEKEREE 


s*TEST 17 


TST17 


WRITE, READ W/ HCI 


FF AAA EARAAEAAEEAEEEREREREREEAEAEREREEREEEAERAEREEAERERERRERREREEE 


MSTACK , SP 
SBASE ,RO 


TSTQUE ,R1 
#17, $TESTN 


541 CALL 


zSTART OF TEST 

INITIALIZE oe + eae 

:RO = UNIBUS ADDRESS 

7(R1) = DEVICE. BEING TESTED 
33SET TEST NUMBER IN APT MAIL BOX 
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T17 WRITE, READ W/ HCI SEQ 0131 | 
1983 
1984 FF AAA RARER EEERERRRERREREEEKEEREERERERREEEEEEREERERKEREE 
1985 :LOOP #1 _FORMAT ,WRITE , READ 
1987 025620 012704 000000 10$: MOV #0,R4 ;HEADER WORD 
1988 025624 012703 000001 MOV #1.R3 SHCE BIT 
1989 025630 15$: 
1991 ;PREPARE THE DEVICE FOR FORMAT OPERATION 
1992 025630 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
5634 154130 “WORD 154130 S TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'’ OR ‘PIP’ IS SET 
[VERIFY RECALIBRATION 
025636 000404 BR 20$ :G0 TO 20$ IF NO ERROR 
025640 000240 NOP SRETURN HERE IF ERROR 
025642 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
val 025644 000137 027176 JMP 370$ 760 TO 370$ IF ERROR 
1994 ;LOQAD PARAMETERS AND GENERATE DATA BUFFER 
1995 025650 20$: 
1996 025650 012737 000000 001444 MOV #0,RMDCO :CYLINDER = 0 
1997 025656 012737 001416 MOV #0. RMDAO [TRACK = 0, SECTOR = 0 
1998 025664 012737 106314 001414 MOV WBUFONE,RMBAO BUS ADDRES 
1999 025672 012737 177376 001412 MOV #-258.,RMWCO :2 + 256. WORDS (2° COMP) 
2000 025700 012737 001442 MOV #FMT16,RMOFO  :16 BIT FORMAT 
2001 025706 012737 001410 MOV #WH'GO.RMCS1O :WRITE HEADER AND DATA COMMAND 
3 ;VERIFY THAT SECTOR IS NOT BAD 
025714 004737 041416 JSR PC ,BADSCT CALL BAD SECTOR MODULE 
025720 000405 BR 25$ TO 25$ IF NO ERROR 
025722 104401 070230 TYPE ,SCTMSG ‘PYRE BAD BAD SECTOR MESSAGE 
025726 104000 EMT TERROR # DEF INED aay y_BADSCT SUBROUT INE 
025730 000137 027024 ie JMP 350$ 'G0 TO 350$ IF E 
2005 025734 012737 071666 001174 MOV #ONES , $STMPO STARTING ADDRESS OF PATTERN 
2006 025742 012737 000001 001176 MOV #1,$TMP1 SRANGE OF PATTERN 
2007 025750 004737 043344 JSR PC; GENBUF G0 GENERATE BUFFER FOR FORMAT 
; CHANGE HEADER WORD TO FORCE ERROR DURING WRITE 
2010 025754 030364 106314 BIT R3,BUFONE(R4)  ;SET OR RESET BIT?? 
2011 025760 001403 BEQ 27 
2012 025762 040364 106314 BIC R3,BUFONE(R4)  ;RESET BIT 
2013 025766 000402 BR B$ 
201% 025770 050364 106314 27$: BIS R3,BUFONE(R4) SET BIT 
2016 ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
2017 025774 28$: 
2018 025774 012702 001551 MOV #PUTINX,R2 ;R2 = BYTE ENTRY POSITION 
2019 026000 112722 000034 MOVB = #RMDC, (R2) + 
2020 026004 112722 000006 MOVB = #RMDA. (R2)+ 
2021 026010 112722 000004 MOVB  &#RMBA.(R2)+ 
2022 026014 112722 000002 MOVB  #RMWC.(R2)+ 
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T17 WRITE, READ W/ HCI SEQ 0132 


2023 026020 112722 000032 MOVB = ARMOF , (R2) 

2024 026024 112722 000000 MOVB wrest (R2 

2025 026030 112712 000200 MOVB «#200, (R2) ; TERMINATE TABLE 

2026 026034 30S: 

2027 

2028 ; FORMAT 1m oy 

2029 026034 004737 044500 :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
026040 000404 Re CO 68 :GO TO 40$ IF NO ERROR 
026042 000240 , NOP :RETURN HERE IF ERROR 
026044 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
026046 000137 027024 JMP 350$ ‘GO TO 350$ IF ERROR 

2030 026052 40$: 

2032 :SETUP GET INDEX TABLE TO READ ALL REGISTERS 

nen 026052 004737 044144 JSR PC,GETSTS 760 TO GETSTS SUBROUTINE 

2034 ;WAIT FOR COMMAND TO COMPLETE 

oe 026056 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

20 


36 GO READ STATUS FOR FORMAT OPERATION | 
2037 OSenee sot U4 044230 JSR PC,GET 


3;GO READ REGISTER(S) WITH GET SUBROUTINE 
26066 BR 50$ :GO TO 50$ IF NO ERROR 
026070 000240 NOP RETURN HERE IF ERROR 
026072 10%000 EMT ;ERROR # DEFINED BY GET SUBROUTINE 
026074 000137 027024 JMP 350$ G0 TO 350$ IF ERROR 
pie 026100 50$: 
2040 ; VERIFY NO ERRORS DURING FORMAT 
2041 026100 004737 057742 ' JSR PC,DTASTS 3;GO VERIFY RESULTS OF DATA TRANSFER 
026104 000405 BR 60$ :GO TO 60$ IF NO ERROR 
026106 000240 NOP TRETURN HERE IF ERROR 
026110 104000 EMT ;ERROR ? otha BY DTASTS SUBROUTINE 
026112 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
026114 000137 027024 JMP 350$ G0 TO 550s IF ERROR 
song 026120 60S: 
2044 ;MOVE LOOP ADDRESSES TO NEXT OPERATION 
2045 026120 012737 026130 001124 MOV #70$,$LPERR 
ioe 026126 000410 BR 80$ ;SKIP TO WRITE OPERATION 
2048 SLR RARER RRR 
;LOOP #2 WRITE ,READ 
2050 
Soe 026130 70$: 
2053 ;PREPARE DEVICE FOR ott OPERATION 
2054 026130 004737 040472 JSR PC, TSTP ;PREPARE DEVICE FOR so 
026134 154130 - WORD 154 130" ; TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
;CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR 
PA K ACKNOWLEDGE IF epee NOT VALID 


AC 
VERIFY oe ara EDGE 
ECAL IBRATE Colitn © "PIP’’ IS SET 


026136 000404 BR 80$ 260 TO 80$ IF NO ERROR 
026140 000240 NOP ;RETURN HERE IF ERROR 








—n_ 
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+5 WRITE, READ W/ HCI SEQ 0133 
026142 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
026144 000137 027024 JMP 350$ :GO TO 350$ IF ERROR 
2055 026150 80S: 
2057 “WRITE DATA TO THE DRIVE 
2058 026150 1208: 
2059 026150 012737 012000 001442 MOV #FMT16!HCI,RMOFO : INHIBIT HEADER COMPARE 
2060 026156 012737 000061 001410 MOV AWD! GO RMCS10 “WRITE DATA COMMAND 
1 026164 012737 106320 001414 MOV Touk One ee RMBAO ;LOAD STARTING BUFFER ADDRESS 
026172 012702 001551 MOV APUTINX,R2O * LOAD PUT REGISTER INDEX TABLE 
2063 026176 112722 000006 MOVB = #RMDA, (R2)+ 
026202 112722 000034 MOVB  #RMDC.(R2)+ 
5 02 112722 000032 M°VB = WRMOF . (RO) 
026212 112722 MOVB  #RMBA.(R2)+ 
2067 026216 112722 000002 MOVB  #RMWC.(R2)+ 
2068 026222 112722 000000 MOVB = #RMCS1, (R2)+ 
2069 026226 112722 000200 MOVB #200, (R2)+ : TERMINATE TABLE 
2071 026232 004737 044500 JSR PC,PUT 3;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
026236 000404 BR 136$ [G0 TO 130$ IF NO ERROR 
026240 000240 NOP ;RETURN Ba; IF ERROR 
026242 104000 EMT sERROR # DEFINED BY PUT SUBROUTINE 
026244 000137 027024 JMP 350$ [G0 TO 350$ IF ERROR 
2072 026250 130$: 
2074 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
2075 026250 004737 044144 JSR PC,GETSTS 3;GO TO GETSTS SUBROUTINE 
2076 ;WAIT FOR COMMAND TO COMPLETE 
7 026254 004737 045042 JSR PC, TIMOUT 3;GO TO TIMOUT SUBROUTINE 
2078 3;GO READ STATUS FOR WRITE COMMAND 
2079 026260 004737 044230 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
026264 000404 BR 140$ :G0_TO 140$ IF NO ERROR 
026266 000240 NOP [RETURN HERE IF ERROR 
026270 104000 EMT ERROR # DEFINED BY GET SUBROUTINE 
026272 000137 027024 JMP 350$ :GO TO 350$ IF ERROR 
2080 026276 140$: 
2082 :CHECK FOR ERRORS DURING WRITE OPERATION 
2083 026276 004737 045226 JSR PC,PRIERR ;GO CHECK FOR PRIMARY ERRORS 
026302 000405 BR 150$ :GO TO 150$ IF NO ERROR 
000240 NOP RETURN HERE IF ERROR 
026306 104000 EMT sERROR # Pee INED BY anh tn SUBROUT INE 
026310 004736 JSR PC,a(SP)+ GO BACK oe ERROR CHECKS 
026312 000137 027024 JMP 350$ :GO TO S508 IF ERROR 
2084 026316 005037 001140 150$: CLR SGDDAT ZEXPECTED STATUS 
2086 026322 032737 000220 001350 BIT MHCE!'FER,RMER1] ;ANY ERROR?? 
2087 026330 001407 BEQ 151$ 
2088 026332 013737 001350 001142 MOV RMER11 , $BDDAT ZRECEIVED STATUS 
2089 026340 042737 177557 001142 BIC #*C<HCE 'FER>, S8DDAT [CLEAR DONT CARES 
2090 026346 000412 152$ 
2091 026350 151$: 
2092 026350 013737 001376 001142 MO’! RMER21, SBDDAT ;RECEIVED STATUS 


2093 026356 032737 100000 001376 BIT #BSE .RMER21 > ANY ,BAD SECTOR ERROR ? 
2094 026364 001406 155$ :NO !! 
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Ti7 WRITE, READ W/ HCI SEQ 0134 
2095 Bs0386 042737 077777 001142 BIC #*CBSE , SBDDAT ;SAVE BSE FOR ERROR 
2096 026374 152$: 
2097 026374 104346 EMT 346 
2098 026376 000137 027024 JMP 350$ 
2099 026402 155$: 
2100 
2101 026402 160$: 
2102 026402 004737 057742 JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
026406 000405 BR 176$ 760 TO 170$ IF NO ERROR 
026410 000240 NOP [RETURN HERE IF ERROR 
026412 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
026414 004736 JSR PC,a(SP)+ :GO BACK FOR Poke _ HECKS 
026416 000137 027024 JMP 350$ :GO TO 350$ IF E 
2103 026422 170$: 
2104 026422 004737 046060 JSR PC,SECERR ;GO CHECK FOR SECONDARY ERRORS 
026426 000405 BR 180$ :GO TO 180$ IF NO ERROR 
026430 000240 NOP [RETURN HERE IF ERROR 
026432 104000 EMT ; ERROR M4 a BY SECERR SUBROUTINE 
026434 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
026436 000137 027024 JMP 350$ 760 TO 350$ IF ERROR 
site 026442 180$: 
2107 ; CHANGE LOOP ADDRESSES 
2108 026442 012737 026452 001124 MOV #190$,,$LPERR 
444 026450 1 BR 200$ 
2111 CLAIRE REE RRR ERE EERERE EERE 
2112 ;LOOP #3 READ 
2113 
Site 026452 190$: 
2116 ;PREPARE DEVICE FOR READ A ehesteincle 
2117 026452 004737 040472 JSR PC,TSTPRP ;PREPARE DEVICE FOR TEST 
026456 154130 - WORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 
: SELECT DEVICE c. VERIFY DEVICE AVAILABLE 
sCLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
‘PA CK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIF Y ante Pet on ° 
sRECALIBRATE IF ‘‘SKI** OR 'PIP’’ IS SET 
VERIFY RECAL IBRATION 
02 000404 BR 200$ :G0 TO 200$ IF NO ERROR 
026462 000240 NOP a Ala gdh HERE IF ERROR 
026464 104000 EMT zERROR # Be’ ire Ms TSTPRP SUBROUTINE 
026466 000137 027024 JMP 350$ :GO TO 350$ IF ERROR 
gis 026472 200$: 
2120 ;READ DATA FROM DEVICE 
2121 026472 240$: 
2122 026472 012737 000071 001410 MOV #RD!GO,RMCS10 ;READ DATA COMMAND 
2123 026500 012737 107324 001414 MOV #BUF TWO+4 RMBAO ;LOAD STARTING BUFFER ADDRESS 
2124 026 012702 001551 MOV #PUTINX,R2 ;LOAD PUT REGISTER INDEX TABLE 
2125 026512 112722 000006 MOVB ARMDA, (R2)+ 
2126 026516 112722 000032 MOVB #RMOF , (R2)+ 
2127 026522 112722 000034 MOVB #RMDC, (R2)+ 
2128 026526 112722 000004 MOVB ARMBA, (R2)+ 
2129 026532 112722 000002 MOVB ARMWC , (RZ) + 





CZRMOAO rn ke FCTNL 
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2130 026536 
$185 026542 


21 
2133 026546 
026552 


2 

2141 026574 
026600 
026602 
026604 
026606 

2142 026612 

2143 


2144 
2145 926612 


12 

2 026716 
63 Sorte 
026716 


MOMOMONNNN NN 
ed ed ceed ed aed ed ed ed ed 


KRAVIS 


112722 
112712 


004737 


000 

005037 
032737 
001407 
013737 
042737 
000412 
013737 
032737 
001406 
042737 


104346 
000137 


TST 3 
HC] 
000000 
000200 

044500 


027024 


044144 
045042 


044230 
027024 


045226 


027024 
001140 
000220 
001350 
177557 
001376 
100000 
077777 


027024 


057742 


027024 
046060 
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MOVB ARMCS1, (R2) + 
MOVB #200, (R2) 


JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 250$ :G0 TO 250$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT [ERROR # DEFINED BY PUT SUBROUTINE 
350$ :GO TO 350$ IF ERROR 
250$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 7G0 TO GETSTS SUBROUTINE 


WAIT FOR COMMAND TQ COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 260$ :GO TO 260$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
260$: 
:CHECK FOR ERRORS DURING READ OPERATION 
JSR PC,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
270$ :GO TO 270$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
JMP 350$ :GO TO S508 IF ERROR 
270$: CLR SGDDAT EXPECTED STATUS 
001350 BIT WHCE!FER,RMER1I ZANY ERROR ? 
BEQ 271$ NO! ! 
001142 MOV RMER11, $BDDAT SRECEIVED STATUS 
001142 BIC #*C<HCE !FER>, $8DDAT [CLEAR DONT CARES 
ae BR 272$ 
001142 MOV RMER21 , SBDDAT ;RECEIVED STATUS 
001376 BIT #BSE ,RMER21 SANY BAD SECTOR ERROR ? 
BEQ 275$ [NO !! 
001142 oa BIC #°CBSE , $BDDAT [CLEAR DONT CARES 
EMT 346 
JMP 350$ 
275$: 
280$: 
JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 290$ :GO TO 290$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT ZERROR # DEF INED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
‘an JMP 350$ :GO TO 350$ IF ERROR 


JSR PC,SECERR 


:GO CHECK FOR SECONDARY ERRORS 





SEQ 0135 
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T17 WRITE, READ W/ HCI 


026742 000405 BR 300$ :60 TO 300$ IF NO ERROR 

026744 000240 NOP RETURN HERE IF ERROR 

026746 104000 EMT TERROR 4g DEF INED BY SECERR SUBROUTINE 
026750 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
026752 000137 027024 MP 356$ :G0 TO S508 IF ERROR 

2167 026756 3008: 

2168 026756 004737 043602 JSR PC, CMPBUF :GO COMPARE WRITE. READ DATA BUFFERS 
026762 106320 .WORD BUFONE+4 ZSTARTING ADDRESS OF WRITE BUFFER 
026764 107324 “WORD BUF TWO+4 TARTING ADDRESS OF READ BUFFER 
026766 0004 BR 0$ :G0 TO 3108 IF NO ERROR 
026770 000240 NOP [RETURN HERE IF ERROR 
026772 104 EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
026774 000137 027024 JMP 350$ :GO TO 350$ IF ERROR 

2169 027000 3108: 

70 027000 006303 ASL 3 sSHIFT HCE BIT 
2171 027002 001006 BNE 320$ [CONTINUE IF NOT DONE 
2172 027004 005704 TST 4 3 SECOND HEADER DONE ?? 
73 027006 001006 BNE 350$ “YES! ! 
2174 027010 012703 000001 MOV #1,R3 ‘Stari WITH BIT 0 
2175 027014 012704 000002 MOV #2,R4 *DO SECOND HEADER WORD 
2176 027020 320$: 
2177 027020 000137 025630 15$ 
2178 027024 350$: 
2179 027024 000464 370$ ZEXIT IF ERROR 
2180 STREAK 
2181 7*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 
2182 Se aac i le enna ttn a 
2183 027026 5555 
2184 027026 012737 177776 001412 MOV #~2,RMWCO ;WORD COUNT 
2185 027034 012737 010000 001442 MOV #FMT16,RMOFO :IN 16 BIT MODE 
2186 027042 012737 106314 001414 MOV ABUF ONE , RMBAO ‘BUFFER ADDRESS 
2187 027050 012737 000062 001410 MOV WH, RMCS10 ‘FORMAT COMMAND 
2188 027056 737 043344 JSR PC, GENBUF ‘SET UP BUFFER 
2190 027062 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
027066 054130 “WORD 054130 :TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE | - 

SRECALIBRATE IF aK "OR ‘PIP’ IS SET 
[VERIFY RECALIBRATION 

027070 0004 BR 360$ :G0 TO 360$ IF NO ERROR 

027072 000240 NOP SRETURN HERE IF ERROR 

027074 104 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 

027076 000137 027102 JMP 360$ :GO TO 360$ IF ERROR 

2191 027102 360$: 

2192 027102 012737 3 001410 MOV MH !GO,RMCS10 

2193 027110 012702 001551 MOV #PUTINX,R2 ; TABLE ADDRESS 

2194 027114 112722 MOVB  #RMDA, (R2)+ 

2195 027 112722 000032 MOVB = #RMOF . (RO) + 

2196 027124 112722 000034 MOVB  #RMDC.(R2)+ 

2197 027 112722 000004 MOVB  &#RMBA.(R2)+ 

2198 027 112722 000002 MOVB  #RMWC.(R2)+ 

2199 027140 112722 000000 MOVB  #RMCS1, (R2)+ 

2200 027144 112722 000200 MOVB  #200,(R2)+ 

2201 027150 004737 044500 JSR PC ,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 





SEQ 0136 


| tated ty hal FCTNL 


027154 


04 
2205 027176 


027176 


2219 027262 
2220 
2221 


2225 027324 
2226 


2227 
2228 027330 
027334 
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HC] 


027176 
045042 


041416 
070230 
030216 
001416 
000001 
043344 


040472 


030216 
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BR 365$ :GO TO 365$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 370$ :G0 TO 370$ IF ERROR 
365$: NOP 
JSR PC, TIMOUT 
370$: 
FARRER ERE REE REE RRR 
TEST 20 WRITE, READ W/ IVC ERROR 
FREER REE EEEEREKKEEREREREEEEEEEEEEEEEREEREEEERKEREEEE 
78120: 
SCOPE :SCOPE CALL 
NOP ‘START OF TEST 
MOV ASTACK,SP ; INITIALIZE STACK POINTER 
MOV S$BASE ,RO ‘RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
MOV #20,$TESTN ::;SET TEST NUMBER IN APT MAIL BOX 
FEAR EREREEEREEREEREEREKEEEEEEKREKEREEEEEREEEEEREEEKEEEEEREEEKEEER 
‘LOOP #1 WRITE ,READ 
LOAD PARAMETERS AND GENERATE DATA BUFFER 
"MOV #0,.RMDCO :CYLINDER = 0 
MOV #0.RMDAO : TRACK = 0. SECTOR = 0 
MOV #BUFONE,RMBAO BUS ADDR ESS 
MOV #-256.,.RMWCO  :256. WORDS (2°S COMP) 
MOV #FMT16,RMOFO  :16 BIT FORMAT 
MOV #WD ,RMCS10 SWRITE HEADER AND DATA COMMAND 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
BR 70$ :GO TO 70$ IF NO ERROR 
TYPE ,SCTMSG TYPE BAD SECTOR MESSAGE 
EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
ae JMP 350$ :GO TO 350$ IF ERROR 


MOV ARMDAO , $STMPO USE SECTOR FOR DATA PATTERN 
MOV #1,$1MP1 
JSR PC ,GENBUF :GO GENERATE DATA BUFFER 


PREPARE DEVICE FOR wire OPERATION 
JSR PC, TSTPR PREPARE DEVICE FOR TEST 
-WORD 154130 TASK DESCRIPTOR AS FOLLOWS: 
7SELECT DEVICE . VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLE 


ae SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 


BR 80$ :GO_TO 80$ IF NO ERROR 

NOP RETURN HERE IF ERROR 

EMT ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ GO TO 350$ IF ERROR 





CZRMOAO RMOS/3/2 FCTNL 
T20 WRITE, READ W/ 


2229 027350 
2230 


2231 
2232 027350 
027356 


73 

e7 
027372 
027376 
027400 
027402 

0274 
2233 027410 
2236 027410 
2237 027410 
2238 027416 
2239 027424 

2240 0274 

2241 0274 


2245 027454 

2246 027460 

2247 027464 

2248 

2249 027470 
027474 
027476 

75 


027502 
$s20 027506 


027530 
2258 027534 
2259 


2260 
2261 027534 
02 


027550 
2262 027554 
2263 027554 


032737 
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000024 001551 
000200 001552 

1 001434 
044500 


030216 


000061 001410 
001434 


030216 


044144 
045042 


044230 
030216 


045226 


030216 
010000 001376 
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80$: 


RESET VOLUME VALID 
MOVB ARMMR1,PUTINX ;SETUP PUT INDEX TABLE 
MOVB #200, PUTIN? SET TERMINATOR BYTE 
MOV #OMD » RMPIR TO 3SET RMMR1 OUTPUT BUFFER = DMD 


JSR C,PUT [GO WRITE RMMR1 VIA PUT SUBROUTINE 
BR 90$ :GO TO 90$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR DEFINED BY PUT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 

90$: 

i SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND 
MOV #WD !GO,RMCS10 :WRITE DATA COMMAND 
MOV RMMR10 SRESET DIAGNOSTIC MODE 


MOV A#PUTINX ,R2 ;LOAD PUT REGISTER INDEX TABLE 


MOVB = #RMBA. (R2)+ 
MOVB  #RMCS1, (R2)+ 


MOVB #200, (R2)+ ; TERMINATE TABLE 
JSR PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 130$ :GO TO 130$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ 'GO TO 350$ IF ERROR 
130$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 760 TO GETSTS SUBROUTINE 
zWAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 3GO TO TIMOUT SUBROUTINE 
7GO READ STATUS FOR WRITE COMMAND 
JSR PC, GET G60 READ REGISTER(S) WITH GET SUBROUTINE 
140$ :G0 TO 140$ IF NO_ ERROR 
RETURN HERE IF ERR 
EMT TERROR # DEFINED BY Ofer SUBROUT INE 
JMP 350$ :GO TO 350$ IF ERROR 
140$: 
zCHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC, PRIERR 7G0 CHECK FOR PRIMARY ERRORS 
150$ 760 TO 150$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC.a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
JMP 350$ :GO TO 350$ IF ERROR 


150$: 


BIT MIVC,RMER2I 


sWAS "‘IVC'* DETECTED?? 





SEQ 0138 
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$608 027562 001024 
2266 027564 004737 
027570 5 


36 
600 000137 
2267 027604 


2268 027604 
2269 027612 013737 


02 
2275 027654 
§ 6 
2278 027654 012737 
2279 027662 000410 
2283 
2284 027664 
2285 


2286 
2287 027664 004737 
027670 154130 


027672 


EE 
AON 
SS35 
—m 
honor 
a 
NNNN 


27732 000404 


736 
027740 


S28 
3 


TST Ean 
IVC E 


057742 


030216 


001376 
001376 
010000 


030216 
046060 


030216 


027664 


040472 


030216 
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001124 





BNE 170$ 
JSR PC ,DTASTS 
BR 160$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 

160$: 
MOV RMER21 , $BDDAT 
MOV RMER21 , $GDDAT 
BIS #IVC,$GDDAT 
EMT 342 
JMP 350$ 

170$: 
JSR PC,SECERR 
BR 180$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 

180$: 


: CHANGE LOOP ADDRESSES 
MOV #190$,$LPERR 
200$ 


sYES!! 


:G0 vent eink OF DATA TRANSFER 
:G0 160$_IF NO ERROR 

RETURN HERE IF ERROR 

ERROR a Pon oe BY DTASTS SUBROUTINE 
;GO BACK FOR MORE OR CHECKS 

G0 TO 350s IF ERROR 


RECEIVED STATUS 
EXPECTED STATUS 


:GO CHECK FOR SECONDARY ERRORS 
G0 TO 180$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR rf DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:G0 TO 350$ IF ERROR 


FARA 


BR 
‘Loop #2 READ 
190$: 
PREPARE vies Pert vB OPERATION 
“BORD 1541 
BR 200$ 
EMT 
JMP 350$ 


200$: 
sRESET VOLUME VALID 
MOVB 


#RMPAR1 , PUT INX 
MOVB #200, PUTINK*1 
MOV #DMD - RMR 10 


JSR 
BR Os, 
NOP 
EMT 
JMP 350$ 


sPREPARE DEVICE FOR TEST 

i TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER wry DEVICE 


sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
AFP GE ee 
RECALIBRATE IF oh OR 'PIP’' IS SET 
VERIFY RECALIBRATI 
:G0_ TO 200$ IF NO ERROR 
;RETURN HERE IF 


ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO0 TO 350$ IF ERROR 


SETUP PUT INDEX TABLE 


RE IF ERROR 
TERROR EF INED oY PUT SUBROUTINE 
:GO TO 350$ IF ERROR 


SEQ 0139 
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2292 027744 
2293 


2294 
2295 027744 


12 
004737 
000404 
000240 
104000 
000137 
004737 
004737 


004737 
04 


36 
000137 
013737 


TST Ean 
Ivc E 


030216 


044144 


045042 


044230 


030216 


045226 


030216 
010000 001376 


057742 


030216 
001376 001140 
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READ DATA COMMAND 

LOAD STARTING BUFFER ADDRESS 
:RESET DIANOSTIC MODE 

;LOAD PUT REGISTER INDEX TABLE 


GO WRITE ‘po y+ A ie PUT SUBROUTINE 
GO TO 250$ IF NO ERR 

;RETURN HERE IF ER ROR 

ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 350$ IF ERROR 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


G0 READ REGISTER(S) WITH GET SUBROUTINE 
:GO TO 260$ IF NO | 


RETURN HERE IF ERR 
ERROR # DEFINED BY oGET SUBROUT INE 
GO TO 350$ IF ERROR 


:GO CHECK FOR or! ERRORS 
:G0 TO ye IF NO ERROR 


RETURN E IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
BACK FOR MORE ERROR CHECKS 

G0 TO 3508 IF ERROR 

sWAS “"IVC’* DETECTED?? 

sYES!! 


:GO VERIFY RESULTS OF DATA TRANSFER 
260 TO 280$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # Pen ore BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 

:GO TO 350$ IF ERROR 


210$: 
“READ DATA FROM DEVICE 
240$: 
MOV #RD!GO,RMCS10 
MOV #BUF TWO, RMBAO 
MOV /RMARIO 
MOV #PUTINX,R2 
MOVB 1, (R2)¢ 
MOVB A, (R2)+ 
MOVB »(R2)+* 
MOVB  #RMDC,(R2)+ 
MOVB » (R2)+ 
MOVB C, (R2)+ 
MOVB  #RMCS1, (R2)+ 
MOVB #200, (R2) 
JSR PC PUT 
BR 250$ 
NOP 
EMT 
JMP 350$ 
2508: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 
;GO READ STATUS FOR READ OPERATION 
JSR PC,GET 
260$ 
EMT 
JMP 350$ 
260$: 
;CHECK FOR ERRORS DURING READ OPERATION 
JSR PC PRIERR 
276s 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
270$: 
BIT #IVC,RMER21 
BNE 290$ 
JSR PC DTASTS 
BR 280$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
280$: 
MOV RMER21 , $GDDAT 


EXPECTED STATUS 


SEQ 0140 


L 11 
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T20 WRITE, READ W/ IVC E SEQ 0141 
2329 030154 052737 01 001140 BIS #IVC SGDDAT | 
2330 030162 013737 001376 001142 MOV RMER21, $B :RECEIVED STATUS 
2331 030170 104342 EMT 42 
o33¢ 030172 000137 030216 JMP 350$ 
2333 030176 290$: 
2334 030176 004737 046060 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
030202 000405 BR 300$ :GO TO 300$ IF NO ERROR 
030204 000240 NOP TRETURN HERE IF ERROR 
030206 104000 EMT TERROR # DEF INED BY SECERR SUBROUTINE 
030210 0047 JSR PC,a(SP)+ 3GO BACK FOR MORE ERROR CHECKS 
030212 000137 030216 JMP 350$ 'GO TO 350$ IF ERROR 
3335 030216 300$: 
9337 030216 350$: 
2339 FERRARA EREREEEEERERERERERKEEEREEEREEEEEREREREREEEEEEEEE 
TEST 21 WRITE, READ W/ ABORT 
SRERRRRARRRERERRERREERREEERERRRRRRRRER ERE R ERE R REE 
030216 78121: 
030216 SCOPE :SCOPE CALL 
030220 000240 NOP SSTART OF TEST 
030222 012706 001100 MOV WSTACK, SP SINITIALIZE STACK POINTER 
030226 013700 001276 MOV S$BASE ,RO :RO_= UNIBUS ADDRESS 
030232 013701 001464 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
eat 030236 012737 21 001226 MOV #21,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
2341 3 My REE RARERAEREEEEEEERAEREAAEERERAEREEEEEEREREEEREKEKKKKEKKE 
See$ ;LOOP #1 WRITE ,READ 
2344 ;LOAD PARAMETERS AND GENERATE DATA BUFFER 
2345 030244 012737 000000 001444 MOV #0,.RMDCO :CYLINDER = 0 
2346 030252 012737 000000 001416 MOV ; RMDAO ZTRACK = 0, SECTOR = 0 
2347 030260 012737 106314 001414 MOV ONE , SBUS ADDRESS 
2348 030266 012737 177400 001412 MOV #~256. , RWC 7256. WORDS (2°S COMP) 
2349 030274 012737 010000 001442 MOV #FMT16.RMOFO :16 BIT FORMAT 
2350 030302 012737 000061 001410 MOV MWD !'GO,RMCS10 WRITE DATA COMMAND 
3391 030310 70S: 
2353 ;PREPARE DEVICE FOR WRITE OPERATION 
2354 030310 004737 040472 JSR PC, TSTP ;PREPARE DEVICE FOR TEST 
030314 154130 -WORD 1541 130° [TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER e. SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERAL TON 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWL EDGE | 
SRECALIBRATE IF ''SKI'’ OR ‘PIP’' IS SET 
[VERIFY RECALIBRATION 
030316 000404 BR 80$ :GO TO 80$ IF NO E 
030320 000240 NOP SRETURN HERE IF ERROR 
030322 104000 EMT TERROR # DEF INED BY TSTPRP SUBROUTINE 
030324 000137 031134 JMP 350$ [60 TO 350$ IF ERROR 
2355 030330 80S: 
2356 
2357 ;SET UNSAFE ERROR 
2358 030330 112737 000014 001551 MOVB #RMERI,PUTINX  ;SETUP PUT INDEX TABLE 
030336 112737 000200 001552 MOVB #200" PUTINX+1 :SET TERMINATOR BYTE 


M11 
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T21 WRITE, SEQ 0142 





2386 

2387 030532 

2388 

2389 
030532 

2390 

2391 

2392 030536 
030542 
030544 
030546 
030550 

2393 030554 

2394 030554 
030560 


012737 
004737 
04 


0004 

000240 
104000 
000137 


i ee oo ieee eee y 


040000 
044500 


031134 


031134 


044144 


044230 


001424 


001410 


001346 


001140 
001140 
001142 


MOV 
JSR 
BR 


NOP 

EMT 

JMP 
90$: 


WRITE DATA 
120$: 


130$: 


#UNS ,RMER10 
PC PUT 
90$ 


350$ 


TO THE DRIVE 
#WD!GO,RMCS10 
NK Re 


#200, (R2)+ 


PC PUT 
136$ 


350$ 


3SET RMER1 OUTPUT BUFFER = UNS 
+60 WRITE oe VIA PUT SUBROUTINE 
90$ IF NO ERROR 


IF ERROR 
3 DEFINED BY PUT SUBROUTINE 
760 TO 3508 IF ERROR 


WRITE DATA COMMAND 
LOAD PUT REGISTER INDEX TABLE 


; TERMINATE TABLE 
:GO WRITE yp ge Doe: PUT SUBROUTINE 
:GO_TO 130$ IF NO ERR 
: RETURN Ay | IF 


ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 350$ IF ERROR 


; SETUP ~. INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


:GO GET REGISTER STATUS 
JSR PC,GET 


NOP 
EMT 
JMP 


BIT 
BEQ 


135$: 


MOV 

BIC 

MOV 

EMT 
136$: 


sWAIT ye} Soe TO COMPLETE 


135$ 


350$ 
#PIP-RMDSI 
136$ 

RMDSI , SGDDAT 


#PIP, $GDDAT 
RMDSI, $BDDAT 
347 


PC, TIMOUT 


:GO GET REGISTER STATUS 
JSR PC,GET 


NOP 
EMT 
JMP 


JSR 
BR 


140$: 


146$ 


350$ 


PC ,PRIERR 
156s 


:GO TO GETSTS SUBROUTINE 


:GO READ _REGISTER(S) WITH GET SUBROUTINE 
:GO_ TO 135$ IF NO ERROR 
RETURN HERE IF ERROR 
sERROR # DEFINED BY GET SUBROUTINE 
:GO TO 350$ IF ERROR 
zWAS COMMAND EXECUTED? 
sNO, GO WAI 
EXPECTED STATUS 


sRECEIVED STATUS 


GO TO TIMOUT SUBROUTINE 


GO READ REGISTER(S) WITH GET SUBROUTINE 
2 TO 140$ IF NO ERROR 


:RETURN HERE IF ERROR 
‘ERROR & DEF INED BY GET SUBROUTINE 
:G0 TO 350$ IF ERROR 


:GO CHECK FOR PRIMARY ERRORS 


:GO TO 150$ IF NO ERROR 





CZRMOAO RMOS/3/2 FCTNL 


Tet 


WRITE, READ W/ 
030562 
030564 104000 
030566 
030570 
2395 030574 
2396 ete 
030602 
030604 
030610 
2397 030614 
2398 


012737 
000410 


004737 
154130 


2416 

2417 030704 

2418 030704 

2419 pene 
2420 030716 


54 21 030722 
2422 030726 
2423 030 


TST 3 
ABORT 


031134 
046060 


031134 


030624 


040472 


031134 


N 11 
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001124 


001410 


150$: 


180$: 
; CHANGE 


NOP 
EMT 

JSR PC, a(SP)+ 
JMP 350$ 

JSR PC,SECERR 
BR 180$ 

NOP 

EMT 

JSR PC,a(SP)+ 
JMP 350$ 


LOOP ADDRESSES 
MOV #190$ ,SLPERR 
BR 2008 


RETURN HERE IF ERROR 
ERROR & ya BY PRIERR SUBROUTINE 
FOR RROR CHECKS 


BACK MORE E 
60 TO 350$ IF ERROR 
GO CHECK Ag 5 yy ERRORS 
:GO_ TO 180$ IF NO ERROR 
; RETURN HERE. IF ERROR 
zERROR # pia BY SECERR SUBROUTINE 


;GO BACK FOR MORE ERROR CHECKS 
:GO0 TO Ssos IF ERROR 


fF FARRER EEREEEEEEEEERERKEREREEEEREREREEEEEEREEEEREKEKEKEEEE 


;LOOP #2 READ 


190$: 
3; PREPARE Pes pe TeTPRP OPERATION 


200$: 
;SET UNSAFE ERROR 
MOVB 


210$: 


BR 200$ 
NOP 
EMT 
JMP 350$ 


#RMER1 , PUT INX 


MOVB  #200,PUTINX+1 
MOV #UNS . 2MER10 
JSR PC PUT 

BR 210$ 

NOP 

EMT 

JMP 350$ 


;READ DATA FROM DEVICE 


240$ 


MOV #RD!GO,RMCS10 
MOV #PUTINX ,R2 
MOVB A, (R2)+ 
MOVB -(R2)+ 
MOVB #RMDC, (Re) + 
MOVB #RMBA, (R2)+ 


PREPARE DEVICE FOR TEST 
2 TASK DESCRIPTOR AS 


FOLLOW. 
SSELECT DEVICE & VERIFY "DEVICE AVAILABLE 
RAT 


CLEAR CONTROLLER .. SELEC 
VERIFY CONTROLLER CLEAR 

ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
sRECALIBRATE IF at tive "OR 'PIP’' IS SET 
VERIFY RECALIBRATI 
:60 TO 200$ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
G0 TO 350$ IF ERROR 


+ SETUP PUT ost Te 


RE IF ERROR 
3 DEFINED BY PUT SUBROUTINE 
G0 TO 350$ IF ERROR 


READ DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


SEQ 0143 








he RMO5/3/2_FCTNL 


WRITE, READ W/ 


2424 030736 
2425 030742 
2426 030746 


2427 
2428 030752 
030756 


24 
2434 030774 
031000 
031002 
004 


031006 
2435 031012 
36 


031064 


1104 


2453 031134 
2454 
2455 031134 
2456 





TST 3 
ABOR 


031134 


044144 


044230 


031134 


031134 
046060 


031134 


2508: 


WRMWC , (R2) + 
WRMCS1, (R2)4 


#200, (R2) 


PC,PUT 
250$ 


350$ 


B 1 
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:GO WRITE Sit ie eke WITH PUT SUBROUTINE 
:GO TO 250$ IF Sakon OR 

;RETURN HERE IF ERR 

ERROR # DEFINED BY opr SUBROUT INE 

:G0 TO 350$ IF ERROR 


; SETUP | TABLE TO READ ALL REGISTERS 


;SEE IF DEVICE STARTED COMMAND 
PC,GET 


JSR G 
BR 255$ 
NOP 
EMT 
JMP 350$ 

255$: 
BIT #PIP,RMDSI 
BEQ 
MOV RMDSI ,$GDDAT 
BIC #PIP,$GDDAT 
MOV RMDSI,$8DDAT 
EMT 347 
JMP 350$ 

256$: 


:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 


:GO READ STATUS 


260$: 


270$: 


300$: 


PC,GETSTS 


G 
260$ 


350$ 
PC PRIERR 
270$ 
PC,a(SP)+ 
356s 
PC, SECERR 
300$ 


PC, a(SP)+ 
350$ 


[G0 TO 350$ IF 


:GO TO GETSTS SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO_ TO 255$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

:GO TO 350$ IF ERROR 


:WAS | COMMAND EXECUTED?? 
SEXPECTED STATUS 
;RECEIVED STATUS 


:GO TO TIMOUT SUBROUTINE 
FOR READ OPERATION 
PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:GO_ TO 260$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY GET SUBROUTINE 

:GO0 TO 350$ IF ERROR 


:GO CHECK FOR ee ERRORS 
ERROR 


:GO0_ TO 270$ IF NO 

;RETURN HERE IF ERROR 

sERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR tg Be CHECKS 


:GO CHECK FOR yy! ERRORS 
:G0 TO 300$ NO_ ERROR 


IF 
RETURN HERE IF ERROR 
sERROR # Pen loee BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
:G0 TO S508 IF ERROR 





— 


T22 


2457 
031134 
031134 
031136 
031140 
031144 
031150 
031154 

2458 031162 

2459 

2460 

2461 

2462 

24 


63 
2464 031162 
031166 


031170 


03 
2476 031266 
2477 031266 
2478 031274 
2479 031302 
2480 


2488 031336 





012737 


004737 
054130 
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040472 
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WRITE, READ EACH CURRENT LEVEL 





FARRAR RERRE REAR EREEEREEEREEEREREEEAEEEEEREEE 


:*TEST 22 


WRITE, READ EACH CURRENT LEVEL 
jSSteNRN ARR NENRRER ENTE RT RET EERE RRR EERE RENEE RRR EN ERNE ERE E TE 
SCOPE + SCOPE CALL 
NOP TART OF TEST 
MOV MSTACK, SP ; INITIALIZE STACK POINTER 
MOV tera ERO :RO_ = UNIBUS RES 
MOV TSTQUE,R1 2(R1) = DEVICE BEING TESTED 


MOV #22, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 


i—n - MMe oe 


FORMAT ,WRITE ,READ 


; PREPARE = DEVICE FOR FORMAT OPERATION 
JSR PC, TSTPRP 


PREPARE DEVICE FOR TEST 


-WORD 054130 ayy DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 

VER IFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘'SKI'' OR 'PIP’' IS SET 
; VERIFY _RECALIBRATION 

BR 208 :GO TO 20$ IF NOE 

NOP ;RETURN HERE IF ERROR 

EMT ERROR # DEFINED As TSTPRP SUBROUT INE 

JMP 350$ G0 TO 350$ IF ERROR 

LOAD PARAMETERS AND GENERATE DATA BUFFER 

MOV #0,,RMDCO CYLINDER = 0 

MOV #0,,RMDAO :TRACK = 0, SECTOR = 0 

MOV ABUF ONE , RMBAO BUS ADDRESS 

MOV #-258. ,RMWCO z2 + 256. WORDS (2'S COMP) 


MOV #FMT16,RMOFO 216 BIT 
MOV M#WH!GO,RMCS10 
THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT cet BAD SECTOR MODULE 
BR TO 26$ IF NO ERROR 
TYPE -SCTMSG TYPE BAD SECTOR MESSAGE 

EMT ERROR # eae BY BADSCT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 

MOV AZEROS , $TMPO : STARTING raged os OF PATTERN 
MOV #1,$TMP1 E OF PATTERN 

JSR PC, GENBUF 


NX ,R2 :R2 = BYTE ENTRY POSITION 


(R2)+ 
MOVB  #RMCS1, (R2)+ 


FORMAT 
[WRITE HEADER AND DATA COMMAND 


:60 GENERATE BUFFER FOR FORMAT 
; LOAD Pur Rreiste® INDEX TABLE FOR FORMAT OPERATIION 
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D1 
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WRITE, READ EACH CURRENT LEVEL 


2489 031342 
2490 031346 
2491 031346 
031352 
031354 
031356 
031360 
ae 031364 


24 

2499 031374 
031400 
031402 
031404 
031406 

2500 031412 

2501 


2502 
2503 031412 
03 


031426 
2504 031432 
2505 


2506 
2507 031432 
S08 031440 


2512 
2513 031442 
2514 
2515 
2516 
2517 031442 
031446 


031450 

031452 

031454 

031456 
2518 031462 
2519 


112712 
004737 
000404 
000240 
104000 
000137 
004737 
004737 
004737 
000404 
000249 
104000 
000137 


012737 
000410 


004737 
054130 


000404 
000240 
104000 
000137 


000200 
044500 


032172 


044144 


045042 


044230 


032172 


057742 


032172 


031442 


040472 


032172 


30$: 


40$: 


MQVB 
JSR 
BR 


NOP 
EMT 
JMP 


#200, (R2) 
PC PUT 
40$ 


350$ 


; TERMINATE TABLE 


760 TO 350$ IF ERROR 


; SETUP A INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


;WAIT FOR COMMAND TO COMPLETE 


508: 
; VERIFY 


60$: 
sMOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #70$,$LPERR 


001124 


JSR 


EMT 
JMP 


PC, TIMOUT 


350$ 


NO ERRORS DURING FORMAT 


JSR 


NOP 
EMT 
JSR 
JMP 


PC ,DTASTS 
60$ 


PC,a(SP)+ 


350$ 


e 


3GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


3;GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 3;GO READ REGISTER(S) WITH GET SUBROUTINE 
TO 50$ IF NO ERROR 


G0 

RETURN By; IF ERROR 

ERROR # DEFINED BY GE7 SUBROUTINE 
760 TO 350$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
2G TO 60$ IF NO ERROR 


;RETURN HERE IF ERROR 

SERROR # DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

760 TO S50 IF ERROR 


SKIP TO WRITE OPERATION 


SERA AERA EEEEEEREKEKEEKEERREEREERRKEERREKEEERKREEKEEKEEEERKE 


;LOOP #2 


70$: 


a Tea pon OPERATION 


80$: 


“ORD 


WRITE ,READ 


80$ :60 T 


350$ 


/PREPARE DEVICE FOR TEST 
;TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF SKIT OR "PIP" IS SET 
VERIFY RECALIBRAT I 

0. 808 IF NO ERROR 


RE TURN A IF ERROR 
ZERROR # Be leven BY TSTPRP SUBROUTINE 
GO TO 350$ IF ERROR 


+60 WRITE et WITH PUT SUBROUTINE 
40$ IF RROR 





2520 031462 


$235 031540 

534 

2535 031544 
031550 


2542 

2543 031572 
031576 
031600 
031602 
031604 

2544 031610 

2545 


2546 
2547 03161 
31630 


03 
2550 031650 
2551 
2552 031650 
2553 031650 

031654 
031656 
031660 
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032172 


044144 


045042 


044230 


032172 


045226 


032172 
057742 


032172 


046060 
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WRITE, READ EACH CURRENT LEVEL 


120$: 


130$: 


#200, (R2)+ 
PC ,PUT 


130$ 


350$ 


3256. WORDS ise S COMP) 

CHANGE ADDRESS 

WRITE DATA COMMAND 

LOAD PUT REGISTER INDEX TABLE 


: TERMINATE TABLE 


:G0 ay Sit ie bic - PUT SUBROUT INE 
+60 TO 130$ IF NO ERR 
RETURN HERE” iF ERROR 
TERROR # DEFINED BY PUT SUBROUTINE 
GO TO 350$ IF ERROR 


; SETUP i ® INDEX TABLE TO READ ALL REGISTERS 


:WAIT got * esas : TO COMPLETE 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


140$: 


PC,GETSTS 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
:G0 TO 1408 IF NO ERROR 

; RETURN Ay fe ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

:GO TO 350$ IF ERROR 


CHECK FOR _——. ee OPERATION 


150$: 


160$: 
170$: 


BR 140$ 

NOP 

EMT 

JMP 350$ 

JSR C,PR 

BR 150$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350$ 

JSR PC .DTASTS 

BR 166$ 

NOP 

EMT 

JSR PC,a(SP)+ 

JMP 350$ 

JSR PC, SECERR 
180$ 


GO CHECK FOR + ERRORS 

;GO TO 150$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 350$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:60 TO 160$ IF “. ERROR 

RETURN HERE IF ERROR 

TERROR ¢ DEFINED BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO TO 350$ IF ERROR 


G0 CHECK FOR ye ERRORS 
m, &, g Ae — 





SEQ 0147 


ay 


031662 
031664 
031670 


2563 031700 
2564 


2565 
2566 031700 
031704 


031714 
t3t4 031720 
2569 031720 
2570 


2571 
2572 031720 





004736 
000137 


012737 
000410 


004737 
054130 


tt I OOOO 
a 
N 
=) 
~m 


N 
wW 
N 


000404 
000240 
000 
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032172 


031700 


040472 


032172 


107324 
177400 


032172 


044144 


045042 


001124 





PC,@(SP)+ 


356$ 


; CHANGE oe ADDRESSES 


#190$,,$LPERR 
200$ 


12 
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:GO BACK FOR MORE ERROR CHECKS 
:G0 TO 350$ IF ERROR 


SKIP TO NEXT OPERATION 


SE EAR REE REE 


JSR 

JMP 
180$: 

BR. 
LOOP #3 
190$: 


* , _ Per vn A OPERATION 


200$: 
2408: 
sREAD DATA FROM 


2508: 


“GORD 


READ 


054130 


200$ 


350$ 


DEVICE 


#200, ( 


PC,PUT 
250$ 


350$ 


sPREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SCLEAR CONTROLLER & SELECT DEVICE 

;VERIFY CONTROLLER CLEAR OPERATION 

sPACK ACKNOWLEDGE IF VOLUME NOT VALID 

oNECALI PACK ACKNOWLEDGE 

RECALIBRATE IF ''SKI'' OR ‘PIP’' IS SET 
BRATION 


ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 350$ IF ERROR 


; CHANGE ADDRESS 

7256. WORDS (2°S COMP) 

READ DATA COMMAND 

;LOAD PUT REGISTER INDEX TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO TO 250$ IF NO ERROR 

RETURN HERE IF ERROR 
“ERROR # DEFINED BY PUT SUBROUTINE 


:GO TO 350$ IF ERROR 


; SETUP 2 INDEX TABLE TO READ ALL REGISTERS 


PC,GETSTS 


iWAIT dias * aed | TO COMPLETE 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


GO READ STATUS FOR READ OPERATION 





SEQ 0148 | 








T22 


2592 032030 
032034 


032 
2593 032046 
2594 


2595 

2596 032046 
032052 

2598 032066 
032072 


032102 
2599 032106 
2600 
2601 032106 
2602 athe 


2609 032166 
2610 032172 
2611 
2612 


032172 


032212 
2613 032220 
2614 


004737 
000404 
000240 
104000 
000137 
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044230 
032172 


045226 


032172 
057742 


032172 


046060 


032172 
043602 


032172 
000200 
001444 
031210 


001444 
001400 


001226 


260$: 


JSR 
BR 


NOP 
EMT 
JMP 


MACRO VO03.01 11-APR~80 13:39:53 PAGE 6 13, -78 
WRITE, READ EACH CURRENT LEVEL 


PC,GET 
260$ 


350$ 


SEQ 0149 


:GO READ aS it ko Ea WITH GET SUBROUTINE 
:G0 TO 260$_ IF NO ERROR 
;RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
G0 TO 350$ IF ERROR 


; CHECK aH ERRORS oc hain OPERATION 


270$: 


280$: 
290$: 


300$: 


310$: 


350$: 


NOP 
EMT 
JSR 
JMP 


JSR 


PC,P 
SSS 


PC,a(SP)+ 


350$ 


PC ,DTASTS 
280$ 


PC,a(SP)+ 
350$ 


PC,SECERR 
300$ 


PC,a(SP)+ 
350$ 


PC, CMPBUF 
BUF ONE +4 
BUF TWO+4 
310$ 


350$ 
#128. ,RMDCO 
RMDCO 


e . 


3 
25$ 


:GO CHECK FOR PRIMARY ERRORS 
:GO TO 270$ IF NOE 


ERROR 
ERROR : ed BY PRIERR SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 
:GO TO 350$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO TO 280$ IF NO ERROR 

;RETURN HERE IF ERROR 

ERROR # ohn ae BY DTASTS SUBROUTINE 
GO BACK FOR MORF ERROR CHECKS 

:GO TO 350$ IF ERROR 


:GO oe FOR SECONDARY ERRORS 
7G Ba ERROR 


F ERROR 
toy 2 DEFINED BY SECERR SUBROUTINE 
:GO FOR MORE CHECKS 
:G0 TO “S508 IF ERROR 


3GO COMPARE WRITE, READ DATA BUFFERS 
ZSTARTING ADDRESS OF WRITE BUFFER 
“STARTING ADDRESS OF READ BUFFER 

:GO TO 310$ IF NO ERROR 


; ERROR 
ERROR # DEFINED BY CMPBUF SUBROUTINE 
:GO TO 350$ IF ERROR 


a Aer TO NEXT THRESHOLD 
fe 


00 NEXT CURRENT LEVEL 


FREAK EAE 


TEST 23 


18123: 


10$: 


WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING 


FREAK ERR EERE 


MSTACK, SP 
$BASE ,RO 
TSTQUE ,R1 
#23, $TESIN 


: SCOPE CALL 
TART OF TEST 
; INITIALIZE STACK POINTER 
:RO_ = UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 
3; SET TEST NUMBER IN APT MAIL BOX 
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W/ CURRENT LEVEL SWITCHING SEQ 0150 
15 M FERRARA RARE ERA 
ig : LOOP #1 FORMAT ,WRITE,READ 
2618 032220 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
032224 054130 .WORD 054130 : TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF SKE OR ‘PIP’ IS SET 
: VERIFY RECALIBRATION 
032226 000404 BR 20$ :GO0 TO 20$ IF NO ERROR 
032230 000240 NOP [RETURN HERE IF ERROR 
032232 104000 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
032234 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
2619 032240 20S: 
2621 7 LOAD — AND GENERATE DATA BUFFER 
2622 032240 012737 000577 001444 #383. ,RMDCO :CYLINDER = 383. 
2623 032246 013737 001332 001416 mov LSTRK.RMDAO ‘SET LAST TRACK AND 
2624 032254 112737 000037 001416 MOVB  #31.,RMDAO SLAST SECTOR 
2625 032262 012737 106314 001414 MOV #BUF ONE , RMBAO [BUS ADDRESS 
2626 032270 012737 176774 001412 MOV #-258.*2 ,RMWCO :2 SECTORS (2°S COMP) 
2627 032276 012737 010000 001442 MOV #FMT16,RMOFO :16 BIT FORMAT 
2628 032304 012737 000063 001410 MOV WH! GO.RMCS10 [WRITE HEADER AND DATA COMMAND 
2630 ;VERIFY THAT SECTOR IS NOT BAD 
032312 004737 041416 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
032316 000405 BR G0 TO 25$ IF NO ERROR 
032320 104401 070230 TYPE _,SCTMSG :TYPE BAD SECTOR MESSAGE 
32324 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
032326 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
2631 032332 25$: 
2632 032332 012737 071666 001174 MOV HONE S , STMPO s STARTING pega fn OF PATTERN 
2633 032340 012737 000001 001176 MOV #1,$TMP1 SRANGE OF PATTERN 
ee 032346 004737 043344 JSR PC, GENBUF 3:60 GENERATE BUFFER FOR FORMAT 
2636 ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
2637 032352 012702 001551 MOV #PUTINX,R2 :R2 = BYTE ENTRY POSITION 
2638 032356 112722 000034 MOVB  #RMDC,(R2)+ 
032 112722 MOVB #RMDA, (R2) + 
032 112722 000004 MOVB  #RMBA.(R2)+ 
2641 032372 112722 000002 MOVB  #RMWC.(R2)+ 
2642 032376 112722 000032 MOVB = #RMOF. (R2)+ 
2643 032402 112722 000000 MOVB  #RMCS1, (R2)+ 
2644 032406 112712 000200 MOVB #200, (R2) : TERMINATE TABLE 
2645 032412 30S: 
2646 Oase ie 004737 044500 JSR PC,PUT 7:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
032416 000404 BR 40$ :GO0 TO 40$ IF NO ERROR 
032420 000240 NOP “RETURN HERE IF ERROR 
032422 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
032424 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
2647 032430 40$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
032430 004737 044144 JSR PC,GETSTS :G0 TO GETSTS SUBROUTINE 


2650 
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T23 WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING 


:WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 





SEQ 0151 
1 
032434 004737 045042 

2652 

2653 

2654 032440 004737 044230 
032444 000404 
032446 1a 


:GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR FORMAT OPERATION 
JSR PC, GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
50$ :60 TO 50$ IF NO ERROR 
RETURN HERE IF ERROR 
TERROR # DEFINED BY GET SUBROUTINE 


032450 104 EMT 
032452 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
2655 032456 50S: 
2657 ; VERIFY NO ERRORS DURING FORMAT 
2658 032456 004737 057742 JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
032462 000405 BR 60$ "GO TO 60$ IF NO ERROR 
032464 000240 NOP SRETURN HERE IF ERROR 
032466 104000 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
032470 004736 JSR PC,a(SP)+ ;GO BACK FOR MORE ERROR CHECKS 
032472 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
2659 032476 60$: 
266 ;MOVE LOOP ADDRESSES hy eeha OPERATION 
See 032476 012737 032506 001124 MOV #708.$ 
2663 032504 000410 BR 808 :SKIP TO WRITE OPERATION 
2665 SAREE AERA REE EEEEKREEEREEEREREEEEEEREREEREREREREEEE 
‘LOOP #2 WRITE ,READ 
2667 
2668 032506 70$: 
2669 
2670 
2671 ;PREPARE, DEVICE FOR WRITE OPERATION 
2672 032506 004737 040472 PC, TSTPR sPREPARE DEVICE FOR TEST 
032512 054130 ‘FORD 054130 STASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
SPA CK AC EDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
[VERIFY RECALIBRATION 
032514 000404 BR 80$ :G0 TO 80$ IF NO ERROR 
032516 000240 NOP RETURN HERE IF ERROR 
032520 104000 EMT ZERROR # DEFINED BY TSTPRP SUBROUTINE 
032522 000137 033176 JMP 350$ [G0 TO 350$ IF ERROR 
2673 032526 80$: 
2674 
2675 032526 120$: 
2676 
77 ;WRITE DATA TO THE DRIVE 
2678 032526 012737 177000 001412 MOV #~256. *2,RMWCO :2 SECTORS (2'S COMP) 
2679 032534 012737 106314 001414 MOV ONE, [CHANGE ADDRESS 
032542 012737 000061 001410 MOV HD 'GO,RMCS10 [WRITE DATA COMMAND 
2681 032550 012737 071666 001174 MOV S,$T STARTING ADDRESS OF PATTERN 
2682 032556 012737 000001 001176 MOV #1,$TMP1 SRANGE OF P TTERN 
2683 032564 004737 043344 JSR PC. GENBUF :GO GENERA Te BUFFER FOR FORMAT 
2684 032570 012702 001551 MOV #PUTINX,R2 [LOAD PUT REGISTER INDEX TABLE 
2685 032574 112722 000006 MOVB = #RMDA, (R2)+ 
2686 032600 112722 000034 MOVB  #RMDC.(R2)+ 
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2 FCTNL 
WRIT NCHECK W/ CURRENT LEVEL SWITCHING SEQ 0152 
7 032604 112722 000032 MOVB  #RMOF,(R2)+ 
2688 032610 112722 000004 MOVB  #RMBA.(R2)+ 
2689 032614 112722 000002 MOVB  #RMWC.(R2)+ 
2690 032620 112722 000000 MOVB  #RMCS1, (R2)+ 
2691 032624 112722 000200 MOVB #200, (R2)+ ; TERMINATE TABLE 
2693 032630 004737 044500 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
032634 000404 BR 136$ [G0 TO 1303 IF NO ERROR 
032636 000240 NOP ‘RETURN HERE IF ERROR 
032640 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
032642 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
269% 032646 130$: 
696 SETUP GET INDEX TABLE TO READ ALL REGISTERS 
032646 004737 044144 PC,GETSTS 7G0 TO GETSTS SUBROUTINE 
2698 ;WAIT FOR COMMAND TO COMPLETE 
a 032652 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
2700 ;GO READ STATUS FOR WRITE COMMAND 
2701 032656 004737 044230 JSR PC,GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
032662 000404 BR 140$ 360 TO 140$ IF NO ERROR 
032664 000240 NOP : RETURN HERE IF ERROR 
032666 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
032670 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
2702 032674 140$: 
2704 :CHECK FOR ERRORS DURING WRITE OPERATION 
2705 032674 004737 045226 JSR PC,PRIERR 7GO CHECK FOR PRIMARY ERRORS 
032700 000405 BR 150$ :GO TO 150$ IF NO ERROR 
032702 000240 NOP [RETURN HERE IF ERROR 
032704 104000 EMT +o M4 iin we BY PRIERR SUBROUTINE 
032706 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
032710 000137 033176 JMP 350$ G60 *0 “EOS IF ERROR 
2706 032714 150$: 
2707 032714 004737 057742 JSR PC,DTASTS 3:GO VERIFY RESULTS OF DATA TRANSFER 
032720 000405 BR 160$ 7GO0 TO 160$ IF NO ERROR 
032722 000240 NOP [RETURN HERE IF ERROR 
032724 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
032726 004736 JSR PC, a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
032730 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
2708 032734 160$: 
2709 
2710 032734 1708: 
2711 032734 004737 046060 JSR PC, SECERR 7GO CHECK FOR SECONDARY ERRORS 
032740 000405 BR 180$ :G0 TO 180$ IF NO ERROR 
032742 000240 NOP ZRETURN HERE IF ERROR 
032744 104000 EMT ERROR “ DEF INED BY SECERR SUBROUTINE 
032746 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
032750 000137 033176 JMP 350$ :GO TO 350$ IF ERROR 
are 032754 180$: 
2714 ;CHANGE LOOP ADDRESSES 
2715 032754 012737 032764 001124 MOV #190$, SLPERR 
10 BR 200$ :SKIP TO NEXT OPERATION 


2716 032762 0004 
2717 


2718 FFARR EAE REE EEE AEE AEE AERA EERE 





T23 


2719 
2720 
2721 032764 
2722 


2723 
2724 032764 
032770 


032772 


0331° 2 
2749 033116 
2750 
2751 
2752 033116 
033122 
033124 





004737 
054130 


3 I IOO 
Se 
eee 
Nm 
Nm 
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040472 


033176 


033176 


044144 


045042 


044230 


033176 


045226 


MACRO VO03.01 11=APR~80 13:39:53 PAGE E 13-82 
WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING 


;LOOP #3 

190$: 

;PREPARE DEVICE FOR READ OPERATION 
JSR PC, TSTPRP 


001410 


200$: 

240$: 

;READ DATA FROM DEVICE 
MOV 


2508: 


READ 


PREPARE DEVICE FOR TEST 

; TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 
ig iu EDGE IF VLU OPERATION 


: VERIFY RECALIBRAT! 
BR 200$ :GO_TO 200$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 


350$ GO TO 350$ IF ERROR 


MCD !GO,RMCS10 :READ DATA COMMAND 

MOV APUTINX.R2 [LOAD PUT REGISTER INDEX TABLE 
MOVB = ARMDA, (R2)+ 

MOVB  #RMOF .(R2)+ 

MOVB = #RMDC.(R2)+ 

MOVB  #RMBA.(R2)+ 

MOVB  #RMWC.(R2)+ 

MOVB  #RMCS1,(R2)+ 

MOVB #200, (R2) 

JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 2508 7GO0 TO 250$ IF NO ERROR 

NOP [RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY PUT SUBROUTINE 

JMP 350$ :G0 TO 350$ IF ERROR 


; SETUP ea TABLE TO READ ALL REGISTERS 


WAIT nl poems TO COMPLETE 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


260$: 


PC,GETSTS :GO TO GETSTS SUBROUTINE 


PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


7GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 260$ :G0 TO 260$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 


;CHECK FOR ERRORS DURING READ OPERATION 
JSR PC,PRIERR 760 cre Ce FOR PRIMARY ERRORS 
O 270$ IF NO ERROR 
RETURN HERE IF ERROR 


BR 270$ 
NOP 


SEQ 0153 
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WRITE, WRIT 


033126 
033150 


033132 
2753 033136 
2754 033136 
033142 


033152 
2755 033156 
2756 
2757 033156 
2758 033156 
033162 


0 
2759 033176 
2760 
2761 033176 
2762 
2763 


033176 
033176 
033200 


033202 
033206 
033212 
033216 

27 

2765 

2766 

276 


7 
2768 033224 
2769 


2770 
2771 033224 
033230 


033232 

033234 

033236 

033240 
2772 033244 
2773 


2774 
2775 033244 


T 
E 








ST 3 


033176 
057742 


033176 


046060 


033176 


040472 


034204 


000000 001444 
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CK W/ CURRENT LEVEL SWITCHING 


EMT sERROR # DEF INED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
naan JMP 356$ 760 TO 350$ IF ERROR 
"SR PC,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 280$ [G0 TO 280$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEF INED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
JMP 350$ :G0 TO S508 IF ERROR 
2808: 
290$: 
JSR PC,SECERR 760 CHE Ck FOR SECONDARY ERRORS 
BR 300$ :60 T 0 300$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT ZERROR a DEF INED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
350$ :GO TO 350$ IF ERROR 
300$: 
350$: 
FREER EEREREEEEREEEREREREEEEEEEEEREREEKEEEKEE 
TEST 24 WRITE, READ EARLY PEAK SHIFT 
{RRRRAARRRERERRERERRRA EEE ERERERRRRRRRRRR EERE ERE R EERE 
T8124: 
SCOPE ZSCOPE CALL 
NOP [START OF TEST 
MOV WSTACK,SP TINITIALIZE STACK POINTER 
MOV SBASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
MOV #24, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
FF AAA REREEERAEAEEAEREEEEERAEREEEREREREREKEREKEKEEKEEE 
:LOOP #1 FORMAT ,WRITE ,READ 
10$: 
;PREPARE THE DEVICE FOR FORMAT OPERATION 
JSR PC, TSTPRP ZPREPARE DEVICE FOR TEST 
~WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE ¢ VERIFY DEVICE AVAILABLE 
LEAR CONTROLLE DEVICE 


AR R & SELECT 
{VERIFY CONTROLLER CLEAR 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK AC 


KNOWL EDGE 
sRECALIBRATE IF at ties OR *PIP’’ IS SET 


;VERIFY_ RECALIBRATI 
BR 208 G0 TO 20$ IF NO 
NOP RETURN HERE IF ERROR 
EMT ERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ 760 TO 350$ IF ERROR 


20$: 


;LOAD PARAMETERS AND GENERATE DATA BUFFER 
MOV #0,,RMDCO CYLINDER = 0 
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WRITE, READ EARLY PEAK SHIFT 


T24 


2776 033252 
2777 033260 
2778 033266 
2779 033274 
2780 0333502 
2781 


2785 033336 
2786 033344 
2787 


2788 
2789 033350 
2790 033354 


03 
2807 033454 
2808 


2809 
2810 OSes 28 


03 
2811 033474 
2812 


012737 


004737 
000404 
000240 
104000 
000137 
004737 


004737 


000000 
106314 
177376 
01 


041416 
070230 
034204 
072142 
000001 
043344 


057742 


034204 
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1416 MOV #0,RMDAO ; TRACK = 0, SECTOR = 0 
001414 MOV MBUF ONE , RMBAO BUS ADDRESS 
001412 MOV #-258. ,RMWCO 2 + 9% WORDS (2°S COMP) 
001442 MOV #FMT16,RMOFO 316 BIT T 
001410 MOV MWH!GO,RMCS10 ;WRITE HEADER AND DATA COMMAND 


VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
:GO_ TO 25$ IF NO ERROR 


BR 25 
TYPE 2 SCTMSG : TYPE BAD SECTOR MESSAGE 


EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
si JMP 350$ :GO TO 350$ IF ERROR 
001174 "MOV #EARLY, STMPO : STARTING ADDRESS OF PATTERN 
001176 MOV #1,$1MP1 SRANGE OF PATTE 


JSR PC, GENBUF 
3 LOAD ig eee ~ INDEX TABLE FOR FORMAT OPERATIION 


#PUTINX,R2 :R2 = BYTE ENTRY POSITION 
MOVB ARMDC , (R2)+ 
MOVB #RMDA, (R2) + 


MOVB = ARMOF . (R2) + 
MOVB = ARCS, gio 


“ie MOVB #200, ¢ ; TERMINATE TABLE 
JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ :GO TO 40$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT [ERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
40$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 760 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 7GO TO TIMOUT SUBROUTINE 
7GO READ STATUS FOR FORMAT OPERATION 
JSR PC, GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
50$ 360 TO 50$ IF NO ERROR 
“RETURN HERE IF ERROR 
EMT TERROR # DEF INED BY GET SUBROUTINE 
JMP 350$ [G0 TO 350$ IF ERROR 
50$: 
; VERIFY NO ERRORS DURING FORMAT 
JSR PC, DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
60$ :GO TO 60$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT [ERROR # DEF INED BY DTASTS SUBROUT INE 
JSR PC,a(SP)+ 7G0 BACK FOR MORE ERROR CHECK 
sa JMP 350$ :GO TO 3508 IF ERROR 


ATTERN 
260 GENERATE BUFFER FOR FORMAT 
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T24 WRITE, READ EARLY PEAK SHIFT SEQ 0156 | 


:MOVE wy ADDRESSES A wy OPERATION 





2813 
2814 033474 012737 033504 001124 #70$,$ 
28:5 033502 000410 80$ 
2817 FERRARA REAR 
2818 : Loop #2 WRITE ,READ 
2819 
820 033504 70$: 
2822 PREPARE DEVICE FOR WRITE OPERATION 
2823 033504 004737 040472 PC,TS ;PREPARE DEVICE FOR TEST 
033510 154130 1541 130 :TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER e SELECT DEVICE 
‘VERIFY CONTROLLER CLEAR OPERATION 
: ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOUE EDGE 
IBRATE IF ‘'SKI'' OR 'PIP’’ IS SET 
: VERIFY RECALIBRAT ION 
033512 0004 BR 80$ :GO TO 80$ IF NO ERROR 
033514 000240 NOP RETURN HERE IF ERROR 
033516 104 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
033520 000137 034204 JMP 350$ :G0 TO 350$ IF ERROR 
2824 033524 80$: 
2826 ;WRITE DATA TO THE DRIVE 
2827 033524 120$: 
2828 033524 012737 177400 001412 MOV #-256..RMWCO — ; CHANGE WORD COUNT 
2829 033532 012737 106320 001414 MOV ABUF ONE +4 , RMBAO 7 CHANGE ADDRESS 
033540 012737 000061 001410 MOV MD !GO,RMCS10 [WRITE DATA COMMAND 
1 033546 012702 001551 MOV #PUT INK ,R2 ZLOAD PUT REGISTER INDEX TABLE 
2832 033552 112722 000006 MOVB  #RMDA, (R2)+ 
3 033556 112722 000034 MOVB  #RMDC.(R2)+ 
033 112722 000032 MOVB » (R2)+ 
2835 033566 112722 000004 MOVB * (R2)+ 
2836 033572 112722 000002 MOVB  #RMWC,(R2)+ 
2837 033576 112722 000000 MOVB  #RMCS1, (Re)+ 
03 112722 000200 MOVB #200, (R2)+ ; TERMINATE TABLE 
2840 033606 004737 044500 JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
033612 000404 BR 130$ :GO TO 130$ IF NO ERROR 
033614 000240 NOP SRETURN HERE IF ERROR 
033616 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
03 000137 034204 JMP 3508 :GO TO 350$ IF ERROR 
2841 033624 130$: 
2843 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
sie 033624 004737 044144 JSR PC,GETSTS :G0 TO GETSTS SUBROUTINE 
2845 jWAIT FOR Gorman TO COMPLETE 
neal 033630 004737 045042 PC, TIMOUT 7GO TO TIMOUT SUBROUTINE 
2847 3GO READ STATUS FOR WRITE COMMAND 
2848 033634 004737 044230 JSR PC GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
033640 0004 140$ [G0 TO 140$ IF NO ERROR 
033642 000240 [RETURN HERE IF ERROR 
033644 104 EMT ZERROR # DEFINED BY GET SUBROUTINE 
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am 


T24 WRITE, READ EARLY PEAK SHIFT SEQ 0157 
033646 000137 034204 JMP 350$ :G0 TO 350$ IF ERROR 
2849 033652 140$: 
2851 :CHECK FOR ERRORS DURING WRITE OPERATION 
2852 033652 004737 045226 JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
033656 000405 BR 150$ 360 TO 150$ IF NO ERROR 
033660 000240 NOP “RETURN HERE IF ERROR 
033662 104000 EMT ‘ERROR # DEF INED BY PRIERR SUBROUTINE 
033664 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
033666 000137 034204 JMP 350$ [GO TO 350$ IF ERROR 
2853 033672 150$: 
2854 033672 004737 057742 JSR PC,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
033676 000405 BR 160$ :60 TO 160$ IF NO ERROR 
033700 000240 NOP * RETURN HERE IF ERROR 
033702 104 EMT ;ERROR # DEF INED BY DTASTS SUBROUTINE 
033704 004 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
033706 000137 034204 JMP 350$ :GO TO 350$ IF ERROR 
2855 033712 160$: 
2856 033712 004737 046060 JSR PC,SECERR £60 CHECK FOR SECONDARY ERRORS 
033716 000405 BR 180$ 0 TO 180$ IF NO ERROR 
33720 000240 NOP RET URN HERE IF ERROR 
033722 104600 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
033724 004736 JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
033726 000137 034204 JMP 350$ :GO TO S508 IF ERROR 
2857 033732 180$: 
2858 
: CHANGE LOOP ADDRESSES 
2860 033732 012737 033742 001124 MOV #190$, $LPERR 
2861 033740 000410 BR 200$ 
2863 5 FERRER ERR REE EEE EEK 
2864 ;LOOP #3 READ 
2865 
2866 033742 190$: 
2868 ;PREPARE DEVICE FOR READ OPERATION 
2869 033742 004737 040472 JSR PC, TSTP ;PREPARE DEVICE FOR TEST 
033746 154130 WORD NS4130 STASK DESCRIPTOR AS FOLLOWS: 
ZSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
ZVERIFY CONTROLLER CLEAR OPERATION 
Ck AC UME NOT VALID 
:VERIFY PACK ACKNOWL E DGE a 
SRECALIBRATE I Faas "OR ‘PIP’ IS SET 
‘VERIFY RECAL IBRATI 
33750 0004 BR 200$ :G0 TO 200$ IF NO ERROR 
033752 000240 NOP [RETURN HERE IF ERROR 
033754 104 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
033756 000137 034204 JMP 350$ :GO TO 350$ IF ERROR 
2870 033762 200$: 
sREAD DATA FROM DEVICE 
033762 240$: 
2874 033762 012737 000071 001410 MOV #RD!GO,RMCS10 :READ DATA COMMAND 
2875 033770 012737 107324 001414 MOV #BUF TWO+4 , RMBAO :CHANGE BUFFER 
033776 012702 001551 MOV #PUTINX,R2 [LOAD PUT REGISTER INDEX TABLE 
2877 034002 112722 MOVB  #RMDA, (R2)+ 








CZRMOAO RMOS/3/2 FCTNL TST 3 
WRITE, READ EARLY PEAK SHIFT 


T24 


2878 034006 
2879 034012 
2880 034016 
2881 034022 
2882 034026 
2883 0340352 
2885 034036 

042 


SRVNARVSK 


2898 
2899 03412 


000032 


034204 
057742 


034204 
046060 


034204 
043602 


034204 
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250$: 


#RMOF , (R2)+ 


#200, (R2) 


350$ 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0_TO 250$ IF NO ERROR 


IF ERROR 
# DEFINED BY PUT SUBROUTINE 
$60 TO 350$ IF ERROR 


; SETUP on INDEX TABLE TO READ ALL REGISTERS 


:WAIT sar” wae * TO COMPLETE 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


260$: 


PC,GETSTS 


PC, TIMOUT 


:GO TO GETSTS SUBROUTINE 
:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
G0 TO 260$ IF NO ERROR 

RETURN HERE IF ERROR 

TERROR # DEFINED BY GET SUBROUTINE 

GO TO 350$ IF ERROR 


:CHECK FOR ERRORS DURING READ OPERATION 
PRIERR 


270$: 


2808: 


300$: 


260$ 
EMT 
JMP 350$ 
JSR PC 
BR 270$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
JSR PC,DTASTS 
BR 280$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
JSR PC SECERR 
BR 3008 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 350$ 
JSR PC, CMPBUF 
.WORD BUFONE+4 
-WORD BUF TWO+4 
BR 310$ 
NOP 
EMT 
JMP 350$ 


GO CHECK FOR PRIMARY ERRORS 
; NO ERROR 


IF ERROR 
TERROR # DEFINED BY PRIERR SUBROUTINE 
:GO BACK FOR yg Be ERROR CHECKS 
:GO0 TO 350$ IF E 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO_ TO 280$ IF NO ERROR 

sRETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
7GO TO 350$ IF ERROR 


:GO CHECK FOR eee ERRORS 
G0 TO 300$ IF NO ERROR 

RETURN HERE IF ERROR 

zERROR 4 pee ee BY SECERR SUBROUTINE 
:GO BACK MORE CHECKS 

:GO TO 5508 IF € 


3GO COMPARE WRITE, READ DATA BUFFERS 
ZSTARTING ADDRESS OF WRITE BUFFER 
“STARTING ADDRESS OF READ BUFFER 
‘Re TO 310$ IF NO ERROR 


IF ERROR 
# DEFINED BY CMPBUF SUBROUTINE 
G0 TO 350$ IF ERROR 


SEQ 0158 


4 


2909 
2910 
2911 
2912 
2913 034232 
2914 


2915 
2916 034232 
034236 


34344 
2931 034352 


2933 
2934 034356 


012737 


004737 
154130 


000404 
000240 
104000 
000137 


012737 


012737 
012737 
004737 


012702 





CZRMOAO RMOS/3/2 FCTNL TST of 
WRITE, READ EARLY P 


2904 034204 


040472 


035212 


041416 
070230 
035212 
071626 
000200 
043344 


001551 


SONNE AS 
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310$: 
350$: 
FERRARA ERERR ERE 
TEST 25 WRITE, READ MIXED PEAK SHIFT 
SAREE AREER AREER 
18125: 
SCOPE ;SCOPE CALL 
3START OF TEST 
MOV ASTACK, SP INITIALIZE STACK POINTER 
MOV SBASE ,RO RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 oer = DEVICE BEING TESTED 
MOV #25,$TESTN T TEST NUMBER IN APT MAIL BOX 
SF RARER REECE 
;LOOP #1 FORMAT ,WRITE,READ 
10$: 
;PREPARE THE DEVICE 4H —— OPERATION 
JSR PC,TSTP sPREPARE DEVICE FOR TEST 
~ WORD 154130 ; TASK DESCRIPTOR AS FOLLOWS: 
:SELECT DEVICE & VERIFY DEVICE AVAILABLE 
EAR CONTROLLER @ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
“PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'’ OR *PIP’’ IS SET 
; VERIFY RECALIBRATION 
BR 20$ 60 TO 20$ IF NO ERROR 
NOP a te glk HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
20$: 
;LOAD PARAMETERS AND GENERATE DATA BUFFER 
MOV #0 ,RMDCO :CYLINDER = 0 
MOV #0 ,,RMDAO : TRACK = 0, SECTOR = 0 
MOV BUF ONE , RMBAO sBuS ADDR 
MOV #-258. ,RMWCO se? ia WORDS (2°S COMP) 
MOV #FMT16,RMOFO 316 BIT FORMAT 


MOV #WH!GO,RMCS10 
VERIFY THAT SECTOR IS NOT BAD 
JSR C,BADSCT 


[WRITE HEADER AND DATA COMMAND 


ccm oS SECTOR MODULE 


BR 5 O TO 25$ IF NO ERROR 

TYPE . SCTMSG ‘YP we SECTOR MESSAGE 

EMT :ERROR # DEFINED BY BADSCT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 


25$: 


MOV #MIXED, STMPO ; STARTING ADDRESS OF PATTERN 
MOV #128. ,$TMP1 E OF PATTERN 


JSR PC , GENBUF :60 GENERATE BUFFER FOR FORMAT 


;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
MOV #PUTINX,R2 ;R2 = BYTE ENTRY POSITION 





a ant 
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T25 WRITE, READ MIXED PEAK SHIFT SEQ 0160 

2935 034362 112738 000034 MOVB = ARMDC, (R2)+ 

2936 034366 112722 000006 MOVB  #RMDA.(R2)+ 

2937 034372 112722 MOVB  #RMBA.(R2)+ 

2938 034376 112722 000002 MOVB  #RMWC.(R2)+ 

2939 034402 112722 000032 MOVB = #RMOF. (R2)+ 
034406 112722 MOVB  #RMCS1, (R2)+ 

2941 034412 112712 000200 MOVB #200, (R2) : TERMINATE TABLE 

2942 034416 30S: 

2943 034416 004737 044500 JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
034422 000404 BR 40$ :GO TO 40$ IF NO ERROR 
034424 000240 NOP SRETURN HERE IF ERROR 
034426 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
034430 000137 035212 JMP 350$ :GO TO 350$ IF ERROR 

2944 034434 408: 

2946 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

Y 034434 004737 044144 JSR PC,GETSTS 7G0 TO GETSTS SUBROUTINE 

2948 ;WAIT FOR COMMAND TO COMPLETE 

seal 034440 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

2950 ;GO READ STATUS FOR FORMAT OPERATION 

2951 034444 004737 044230 JSR PC, GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
034450 000404 BR 50$ 7GO TO 50$ IF NO ERROR 
034452 000240 NOP [RETURN HERE IF ERROR 
034454 104000 EMT sERROR # DEFINED BY GET SUBROUTINE 
034456 000137 035212 JMP 350$ :GO TO 350$ IF ERROR 

2952 034462 50S: 

2954 ;VERIFY NO ERRORS DURING FORMAT 

2955 034462 004737 057742 JSR PC,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 
034466 000405 BR 60$ :GO TO 60$ IF NO ERROR 
034470 000240 NOP SRETURN HERE IF ERROR 
034472 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
034474 004736 JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
034476 000137 035212 JMP 350$ :GO0 TO 350$ IF ERROR 

2956 034502 60$: 

2958 zMOVE LOOP ADDRESSES To NEXT OPERATION 

2959 034502 012737 034512 001124 MOV #70$,$LPERR 

$00 034510 000410 BR 80$ SKIP TO WRITE OPERATION 

2962 “ SEAR REEREEEEREREREEEEREREREEERREEERERREEERREREREKE 

2963 ‘Loop #2 WRITE ,READ 

2964 

2965 034512 70$: 

2967 ;PREPARE DEVICE FOR WRITE OPERATION 

2968 034512 004737 040472 JSR PC, TSTPR ;PREPARE DEVICE FOR TEST 
034516 154130 “WORD 154130 :TASK DESCRIPTOR AS 


FOLLOWS : 
sSELECT DEVICE & VERIFY DEVICE AVAILABLE 
:CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR RATI 
[PACK AC IF VOLUME NOT VALID 


GE 
VERIFY PACK ACKNOWLEDGE 
;RECALIBRATE IF ‘‘SkI'’ OR ‘PIP"' IS SET 
;VERIFY RECALIBRATION 





+a 
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T25 WRITE, READ MIXED PEAK SHIFT 


000404 
000240 
04000 


: 
000137 035212 


035212 


044144 
045042 


044230 
035212 


045226 


035212 
057742 


035212 
046060 


3001 034790 


80$: 


BR 

NOP 
EMT 
JMP 
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80$ 


350$ 


;WRITE DATA TO THE DRIVE 


120$ 


130$: 


#-256. ,RMWCO 
ae to tee 


2(R 
#RMCS1, (R2)+ 


#200, (R2)+ 
PC ,PUT 


130$ 


350$ 


SEQ 0161 
7 TO 80$ IF NO ERROR 


F ERROR 
Ssbe Itc As TSTPRP SUBROUTINE 
:GO TO 350$ IF ERROR 


; CHANGE atrak COUNT 


COMMAND 
;LOAD PUT REGISTER INDEX TABLE 


: TERMINATE TABLE 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
:GO_ TO 130$ IF NO ERROR 
RETURN HERE IF ERROR 


;ERROR # DEFINED BY PUT SUBROUTINE 
:GO TO 350$ IF ERROR 


; SETUP =. INDEX TABLE TO READ ALL REGISTERS 


WAIT ee TO COMPLETE 


:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET 


140$: 


BR 

NOP 
EMT 
JMP 


PC,GETSTS 


PC, TIMOUT 


350$ 


:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 


:GO READ REGISTER(S) aw "H GET SUBROUTINE 
+60 TO — IF NO ERR 


IF ERROR 
# DEFINED BY GET SUBROUTINE 
>GO TO 350$ IF ERROR 


CHECK FOR ERRORS ant WRITE OPERATION 
JSR PC,PRIERR 


150$: 


160$: 


NOP 
EMT 
JSR 





150$ 


PC,a(SP)+ 
350$ 
PC,DTASTS 
160$ 
PC,a(SP)+ 
350$ 


PC,SECERR 


G0 CHECK FOR PRIMARY ERRORS 


F ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
:GO TO 350$ IF ERROR 


:GO VERIFY wim OF DATA TRANSFER 
2 GO TO 160$ IF NO ERROR 


; RETURN HERE” IF ERROR 

; ERROR # Pin cote BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:G0 TO 3508 IF ERROR 


:GO CHECK FOR SECONDARY ERRORS 


mn 


— RMOS/3/2 FCTNL TST 3 


WRITE, 


3004 
3005 034740 
3006 034746 


3010 
3011 034750 
3012 


3013 
3014 034750 
034754 





012737 
000410 


004737 
154139 


004737 
000404 
000240 
104000 
000137 


004737 


004737 


035212 


034750 


040472 


035212 


107324 
000071 
001551 
000006 


035212 


044144 


045042 
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001124 


BR 180$ :GO TO 180$ IF NO ERROR 

NOP SRETURN HERE IF ERROR 
EMT SERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 

_ JMP 350$ :GO TO 350$ IF ERROR 


: CHANGE LOOP ADDRESSE 
MOV 71908. SLPERR 
BR 200$ SKIP TO NEXT OPERATION 


SIRE RRR REAR REEERE EERE 


;LOOP #3 READ 


190$: 
: PREPARE jPEVICE FOR READ OPERATION 
PC, TSTPRP ;PREPARE DEVICE FOR TEST 
JSORD 154130 S TASK DESCRIPTOR AS FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
ZCLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
“VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF Kr OR ‘PIP'' IS SET 
[VERIFY RECALIBRATION 
BR 2008 :GO TO 200$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
350$ :GO TO 350$ IF ERROR 
200$: 
ZREAD DATA FROM DEVICE 
MOV #BUF TWO+4 , RMBAO : CHANGE BUFFER 
MOV #RD!GO,RMCS10 :READ DATA COMMAND 
MOV #PUTINX,R “LOAD PUT REGISTER INDEX TABLE 
MOVB  #RMDA, (R2)+ 
MOVB  #RMOF.(R2)+ 
MOVB  #RMDC.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB  #RMWC.(R2)+ 
MOVB  #RMCS1, (R2)+ 
MOVB = #200, 
JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
250s :GO_TO 250$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
350$ 760 TO 350$ IF ERROR 
250$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 7G0 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


SEQ 0162 





3037 

3038 035072 
035076 
035100 
035102 
035104 

3039 035110 

304 


64 
3047 035170 


035176 
035 


7 
3058 035240 


004737 
000404 
000240 
104000 
000137 


004737 

0004 

000240 
000 


012737 


RMOAO ee © FCTNL TST 3 
5 WRITE, READ MIXED PEAK SHIFT 


044230 


035212 


045226 


035212 
057742 


035212 
046060 


035212 
043602 


035212 
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001226 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


260$: 


BR 

NOP 
EMT 
JMP 


:GO READ REGISTER(S) iit GET SUBROUTINE 
260$ :G0 TO 260$ IF NO ERR 

SRETURN HERE IF ER ROR 

TERROR # DEFINED BY GET SUBROUTINE 
350$ :GO TO 350$ IF ERROR 


CHECK FOR ERRORS Taien READ OPERATION 
JSR PC,PRIERR 


270$: 


280$: 


300$: 


310$: 
350$: 


NOP 
EMT 
JSR 
JMP 


;GO CHECK FOR PRIMARY ERRORS 
2708 :60 TO 270$ IF NO ERROR 


ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 


PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
350$ :GO TO 350$ IF ERROR 
PC ,DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
280$ :GO TO 280$ IF NO ERROR 

‘RETURN HERE IF ERROR 

ERROR M DEFINED BY DTASTS SUBROUTINE 
PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
350$ :GO TO 350$ IF ERROR 
PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
300$ :GO TO 300$ IF NO ERROR 

‘RETURN HERE IF ERROR 

TERROR # DEF INED BY SECERR SUBROUTINE 
PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
350$ :GO TO 5508 IF ERROR 
PC, CMPBUF 7GO COMPARE WRITE, READ DATA BUFFERS 
BUF ONE +4 ZSTARTING ADDRESS OF WRITE BUFFER 
BUF TWO+4 -STARTING ADDRESS OF READ BUFFER 
310$ :GO TO 310$ IF NO ERROR 

: HERE IF ERROR 

TERROR # DEFINED BY CMPBUF SUBROUTINE 
350$ :GO TO 350$ IF ERROR 


FREER EKER AEE EERE 


TEST 26 


{RRR RARR AREER RH EERE EERE EERE RRRRERERR RRR RRR EEE 


15126: 


WRITE, READ EACH TRACK 


SCOPE CALL 
START OF TEST 
AMSTACK , SP INITIALIZE STACK POINTER 
$BA RO = UNIBUS ADDRESS 
TSTQUE ,R1 et = DEVICE BEING TESTED 
#26, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 


DUAR EEE REAR EERE EEE EKEKEEEE 


:LOOP #1 


10$: 


FORMAT ,WRITE ,READ 





SEQ 0163 


3059 

3060 

3061 035240 
035244 


035246 


3070 035310 
3071 035316 
3072 
3073 


035 
3074 035344 
3075 035344 
3076 035352 
3077 035360 


3080 035364 
3081 035370 


3088 035424 

3089 

3090 

3091 035424 
035430 
035432 
035434 
035436 

3092 035442 

3093 

3094 
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WRITE, READ EACH TRACK 


004737 
154130 


000404 
000240 
104000 
000137 


012737 
012737 


012737 


“4 
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; PREPARE pu, DEVICE FOR FORMAT OPERATION 


PC, TSTPRP ;PREPARE DEVICE FOR TEST 
“ORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY nate ACKNOWLEDGE 
sRECALIBRATE IF MSI OR *PIP’’ IS SET 
ae to 208 if to ION 


BR 20$ :GO_TO 20$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
LOAD PARAMETERS AND GENERATE DATA BUFFER 
MOV #0,.RMDCO :CYLINDER = 0 
MOV #0,,RMDAO : TRACK = 0, SECTOR = 0 
MOV MBUF ONE , RMBAO sBuS ADDRESS 
MOV #-258. ,RMWCO + 256. WORDS (2'S COMP) 
MOV #FMT16,RMOFO 316 BIT FORMAT 


MOV M#WH!GO,RMCS10 


THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT +e BAD sk MODULE 


[WRITE HEADER AND DATA COMMAND 


BR : 0 26$ IF ERROR 

TYPE .SCTMSG TYPE BAD SECTOR MESSAGE 

EMT zERROR # OS teen a BADSCT SUBROUTINE 
JMP 350$ :GO TO 3508 IF E 

MOV AMIXED ,STMPO STARTING ADDRESS OF PATTERN 
MOV #128. ,$TMP1 RANGE OF PATTERN 

JSR PC, GENBUF :GO GENERATE BUFFER FOR FORMAT 


:R2 = BYTE ENTRY POSITION 


;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION 
MOV NX ,R2 


MOVB  &#RMOF.(R2)+ 
MOVB  #RMCS1, (R2)+ 


MOVB #200, (R2) ; TERMINATE TABLE 


THE DRIVE 
JSR 


PC,PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 40$ :GO_ TO 40$ IF NO ERROR 
NOP :RET ay HER IF ERROR 
EMT ERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 


;SETUP GET INDEX TABLE TO READ ALL REGISTERS 





T26 


CZRMOAO RMOS/3/2 FCTNL TST 3 


WRITE, READ EACH TRACK 


035442 
5 

035446 
7 


3098 
3099 035452 


035526 
03 


oo 
W 
wi 
rs 
So 


35540 


Netetetetr 


dk kk a ed ed 
ooo 
WW 

Ww 

S 

Ow 


WAWWWWWAAANG 
hr Nroronon = 
Oo NORMS OOo ~ 





004737 
004737 
004737 
000404 
000240 
104000 
000137 


SNN SIN 
NNO 
MRMNVINYONNNN 


044144 


045042 


044230 


036240 


057742 


036240 


035520 


040472 


036240 
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001124 


JSR PC,GETSTS 
:WAIT FOR COMMAND TO COMPLETE 
JSR PC,TIMOUT 


:GO READ STATUS FOR FORMAT OPERATION 
JSR PC,GET 


EMT 
JMP 


50$: 


VERIFY NO ERRORS DURING FORMAT 
JSR TASTS 


350$ 


PC,a(SP)+ 


350$ 


SEQ 0165 
:GO TO GETSTS SUBROUTINE 


:GO TO TIMOUT SUBROUTINE 
+60 READ . hh ao tke WITH GET SUBROUTINE 
0 IF NO ERROR 


IF ERROR 
# DEFINED BY GET SUBROUTINE 
60 TO 350$ IF ERROR 


:GO VERIFY RESULTS OF DATA TRANSFER 
:GO_TO 60$ IF NO ERROR 

;RETURN HERE IF ERROR 

sERROR # + he BY DTASTS SUBROUTINE 
:GO BACK FOR MORE ERROR CHECKS 

:GO0 TO $508 IF ERROR 


sMOVE a ADDRESSES MY PRA OPERATION 


#708, 
80$ 


:SKIP TO WRITE OPERATION 


SAAR ARERR RARER REE REE 


NOP 

EMT 

JSR 

JMP 
60$: 

BR 
;LOOP #2 
70$: 


ae at FOR 1STPRP OPERATION 


BR 

NOP 
EMT 
JMP 


80$: 


jwire DATA 


120 


WRITE ,READ 


PC,T 
1541 


80$ 


350$ 


TO THE DRIVE 


WRMBA; (RO) + 


ARE DEVICE FOR My 

TASK DESCRIPTOR AS FOLLOWS: 

SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 


:VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ‘'SkI'’ OR ‘PIP'’ IS SET 

VERIFY RECALIBRATION 

G0 TO 80$ IF NO ERROR 

RETURN HERE IF ERROR 

ZERROR # DEFINED BY. TSTPRP SUBROUTINE 
GO TO 350$ IF ERROR 


; CHANGE BUS ADDRESS 
;CHANGE WORD yo 
WRITE DATA COMMAND 
:LOAD PUT "REGISTER INDEX TABLE 


31 

3141 035650 
035654 
035656 
035660 
035662 

3142 035666 

3143 


3144 
3145 035666 
035672 


035722 
3148 035726 
3149 le 


31 
31 
31 
: 
31 
31 
31 
31 
31 
31 


035746 


035746 
035754 


035756 


SSSVRARRUNLS 
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WRITE, READ EACH TRACK 


000002 
000000 
000200 
044500 
036240 


044144 
045042 


044230 
036240 


045226 


036240 
057742 


036240 
046060 


036240 


035756 001124 
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MOVB  #RMWC,(R2)+ 
MOVB = #RMCS1, gio 


MOVB #200, ¢ ; TERMINATE TABLE 
JSR PC PUT 760 WRIT REGISTER(S) WITH PUT SUBROUTINE 
BR 136$ 7GO0 TO 130$ IF NO ERROR 
NOP : P TURN HERE IF ERROR 
EMT ;ERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
130$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 7GO0 TO GETSTS SUBROUTINE 
:WAIT FOR COMMAND To COMPLETE 
JSR PC, TIMOUT :GO0 TO TIMOUT SUBROUTINE 
:GO READ STATUS FOR WRITE COMMAND 
JSR PC,GET G60 READ REGISTER(S) WITH GET SUBROUTINE 
BR 140$ :60 0 140$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ 60 "0 350$ IF ERROR 
140$: 
ZCHECK FOR ERRORS DURING WRITE OPERATION 
JSR PC, PRIERR GO CHECK FOR PRIMARY ERRORS 
150$ :GO TO 150$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ BACK FOR MORE ERROR CHECKS 
ios JMP 350$ :60 TO Ss0s IF ERROR 
JSR PC DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ :GO TO 160$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEF INED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 7G0 BACK FOR MORE ERROR CHECKS 
aaa JMP 350$ 760 TO Ssos IF ERROR 
JSR PC,SECERR £60 CHE Ck FOR. SECONDARY ERRORS 
BR 180$ 0 180$ IF NO ERROR 
NOP RETURN HERE. iF ERROR 
EMT ZERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
ean JMP 350$ :GO TO 350$ IF ERROR 


CHANGE LOOP ADDRESSES 
MOV #190$,SLPERR 
200$ SKIP TO NEXT OPERATION 


FF RRA AERA RARER ERE 


LOOP #3 READ 
190$: 





T26 


0 2 
3163 035776 
3164 
3165 
3166 035776 
= 67 035776 
3199 036012 





004737 
154130 


000404 
000240 
104000 
000137 


012737 
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040472 


036240 


107324 
001551 


036240 
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;PREPARE DEVICE FOR READ OPERATION 
JSR PC, TSTPRP s;PREPARE DEVICE FOR TEST 


“BORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
TCLEAR CONTROLLER & SELECT DEVICE 
ZVERIFY CONTROLLER CLEAR OPERATION 
CK ACKNOWLEDGE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDGE 
ZRECALIBRATE IF ''SKI'' OR ‘PIP’' IS SET 
VERIFY RECALIBRAT! ON 
BR 2008 :G0 TO 200$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 350$ 7GO0 TO 350$ IF ERROR 
2008: 
inter DATA FROM DEVICE 
MOV #BUF TWO+4 , RMBAO CHANGE BUS ADDRESS 
MOV #RD!GO,RMCS10 TREAD DATA COMMAND 
MOV #PUT INX,R2 [LOAD PUT REGISTER INDEX TABLE 
MOVB  #RMDA, (R2)+ 
MOVB  &#RMOF.(R2)+ 
MOVB  #RMDC.(R2)+ 
MOVB  #RMBA.(R2)+ 
MOVB C. (R2)+ 
MOVB = #RMCS1, (R2)+ 
MOVB #200, (R2) 
JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 2508 :G0 TO 250$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
JMP 350$ [G0 TO 350$ IF ERROR 
2508: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 
;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 


:GO READ STATUS FOR READ OPERATION 
JSR PC,GET 


3GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 260$ :G0 TO 260$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ :G0 TO 350$ IF ERROR 
260$: 
7CHECK FOR ERRORS DURING READ OPERATION 
JSR PC PRIERR :60 CHE Ck FOR PRIMARY ERRORS 
BR 270$ 0 270$ IF NO ERROR 


NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 260 BACK FOR MORE ERROR CHECKS 

JMP 350$ GO TO 350$ IF ERROR 


SEQ 0167 
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3191 036136 


3192 030178 004737 057742 


036240 
046060 


036240 
043602 


2 
3195 036176 
3196 036176 


000404 
000240 
104000 
000137 
105237 


036240 


001417 
001417 


035274 


040472 


= 
== 
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270$: 
JSR PC, DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 280$ :G0_TO 280$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT ZERROR # DEF INED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
ae JMP 350$ :G0 TO 350$ IF ERROR 
JSR PC,SECERR 7GO CHECK FOR SECONDARY ERRORS 
BR 300$ :G0 TO 300$ IF NO ERROR 
NOP ZRETURN HERE IF ERROR 
EMT TERROR # DEF INED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
mai JMP 356$ :GO0 TO 350$ IF ERROR 
JSR PC, CMPBUF 7GO COMPARE WRITE, READ DATA BUFFERS 
“WORD BUFONE+4 ;STARTING ADDRESS OF WRITE BUFFER 
“WORD BUF TWO+4 “STARTING ADDRESS OF READ BUFFE 
BR 310$ :G0 TO 310$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT [ERROR # DEFINED BY CMPBUF SUBROUTINE 
Sie JMP 350$ :GO TO 350$ IF ERROR 
INCB — RMDAO#1 ZADVANCE TO NEXT TRACK 
001333 MPB —s- RMDAO+1, LSTRK+1 :DONE ? 
BHI 350$ TYES!! 
JMP 25$ [TEST NEXT TRACK 
350$: 
FERRARA REREREEEEEREREREREKEEEREREREEEEEREREEEREKERRKEKRE 
ATEST 27 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 
{RRRRRRRRRRRRRARERERRRERE ERE RERRRRERRRRAERRER AERA RER HERR ER ER ERE 
+$127 
SCOPE SCOPE CALL 
NOP SSTART OF TEST 
MOV #STACK,SP ; INITIALIZE STACK POINTER 
MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 7(R1) = DEVICE. BEING TESTED 
001226 MOV #27, $TESIN 7:SET TEST NUMBER IN APT MAIL BOX 
FERRER REREEE EERE REEEEREEREEERERREEREREKEEKEKEKEERE 
iL oP #1 FORMAT,READ OFFSET,WRITE CHECK OFFSET IN BOTH DIRECTIONS 
;PREPARE DEVICE FOR FORMAT OPERATION 
JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
~WORD 154130 7TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VERIFY DEVICE AVAILABLE 
AR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
:VERIFY PACK ACKNOWL ED 
SRECALIBRATE IF Ske OR 'PIP’’ IS SET 
[VERIFY RECALIBRATI 
BR 208 360 0 20$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 


SEQ 0168 
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T27 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSST MODE SEQ 0169 





we 036302 000137 037422 JMP 350$ :G0 TO 350$ IF ERROR 

3213 “LOAD PARAMETERS AND GENERATE DATA BUFFER 

3214 036306 20$: 

3215 036306 012737 000000 001444 MOV #0,RMDCO i CYLINDER = 0 

3216 036314 012737 001416 MOV #0-RMDAO. RACK = 0, SECTOR = 0 

3217 036322 012737 106314 001414 MOV WBUF ONE ‘ OURFER ADDRESS 

3218 036330 012737 176774 001412 MOV #~258. Moen RMaCO ;WORD COUNT FOR 2 SECTORS (2'S COMP) 

3219 036336 012737 010000 001442 MOV #FMT16,RMO £16 BIT MODE 

3220 036344 012737 000063 001410 MOV #WH!GO, RCSTO [WRITE HEADER 

3222 ;VERIFY THAT SECTOR IS NOT BAD 
036352 004737 041416 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
036356 00040 BR 25 :GO TO 25$ IF NO ERROR 
036360 104401 070230 TYPE ,SCTMSG :TYPE BAD SECTOR MESSAGE 
036364 104 EMT [ERROR # DEFINED BY BADSCT SUBROUTINE 
036 000137 037422 JMP 350$ [G0 TO 350$ IF ERROR 

3223 036372 258: 

3224 036372 012737 071730 001174 MOV AZEROS, $TMPO :DATA PATTERN 

3225 036400 012737 000001 001176 MOV #1,$TMP1 

26 036406 737 043344 JSR PC. GENBUF :TO GENERATE BUFFER FOR FORMAT 

3228 ;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION 

3229 036412 012702 001551 MOV #PUTINX,R2 ;BYTE ENTRY TABLE 

3230 036416 112722 000034 MOVB PRMDC (Rod + 

3231 036422 112722 000006 MOVB A. (R2)+ 

3232 036426 112722 000004 MOVS * (R2)+ 

3233 036432 112722 000002 MOVB  #RMWC. (R2)+ 

3234 036436 112722 000032 MOVB = ARMOF . (R2)+ 

3235 036442 112722 000000 MOVB  ARMCS1, (R2)+ 

3% 036446 112712 000200 MOVB #200, (R2) ; TABLE TERMINATOR 

3237 036452 30S: 
036452 004737 044500 JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
036456 000404 BR 40$ :G0 TO 40S IF NO ERROR 
036460 000240 NOP [RETURN HERE IF ERROR 
036462 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
036464 000137 037422 JMP 350$ 760 TO 350$ IF ERROR 

3239 036470 40$: 

3241 ;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

vate: 036470 004737 044144 JSR PC, GETSTS :G0 TO GETSTS SUBROUTINE 

3243 ;WAIT FOR COMMAND TO COMPLETE 

ee 036474 004737 045042 JSR PC, TIMOUT 7GO TO TIMOUT SUBROUTINE 

3GO READ STATUS FOR FORMAT OPERATION 

3246 036500 004737 044230 JSR PC,GET 7G0 READ REGISTER(S) WITH GET SUBROUTINE 
036504 000404 50$ £60 TO 50$ IF NO ERROR 
036506 000240 RETURN HERE IF ERROR 
036510 104 EMT TERROR # DEF INED BY GET SUBROUTINE 
036512 000137 037422 JMP 350$ :GO TO 350$ IF ERROR 

3267 036516 50S: 

3249 ; VERIFY NO ERROR DURING FORMAT 

3250 036516 004737 057742 JSR PC .DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
036522 000405 60$ [G0 TO 60$ IF NO ERROR 
036524 000240 SRETURN HERE IF ERROR 





Oee2es 
30 


USWH 
oO 
oe 
wi 
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; 
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3261 036560 

3262 

3263 036560 
036564 
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012737 
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004737 
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037422 
036560 


177000 
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040472 


000002 
000200 
044500 


037422 
000015 
001551 
000000 
000200 
044500 


037422 
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001410 


EMT 
JSR 
JMP 


READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 


PC,a(SP)+ 
350$ 


sERROR # DEFINED BY DTASTS SUBROUTINE 
7GO BACK FOR MORE ERROR CHECKS 
:G0 TO 350$ IF ERROR 


3MOV LOOP ADDRESSES TO NEXT OPERATION 


60$: 


MOV 


#70$,$LPERR 


LOCATE BUFFER ADDRESS AND WORD 
MOV #-256.*2 ,RMWCO 
#BUF ONE , RMBAO 


ERROR LOOP ADDRESS 


COUNT 
TWO SECTORS 
;BUFFER ADDRESS 


FF AAR RERREEEERERAEKEEEEEEREEEREREEEEEKEEREREEEEKEEE 


a 2 READ AND WRITE CHECK IN OFFSET MODE 


:PREPARE DEVICE FOR READ OFFSET 
JSR PC, TSTPRP 
. WORD 


125$: 


130$: 
;WAIT FOR COMMAND TO COMPLETE 


4130 


80$ 


350$ 


#PUTINX ,R2 


#200, tRose 


PC PUT 
125$ 


350$ 
SPUTIBL AO -RMCS10 


#PUTINX,R 


ARMCS1, (R2)+ 


#200, (R2)+ 


PC PUT 
136s 


350$ 


OPEATION 

PREPARE DEVICE FOR Fiat as 

TASK DESCRIPTOR AS FOLLOW: 

;SELECT DEVICE c. VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF epee NOT VALID 
VERIFY nate iF eat EDGE 

RECAL ip KI OR *PIP’’ IS SET 


;GO T 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 
:GO TO 350$ IF ERROR 


;LOAD THE TABLE 


: TABLE TERMINATOR 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
ob TO 125$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 
GO TO 350$ IF ERROR 
OFFSET COMMAND 


:GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
7GO TO 130$ IF NO ERROR 

:RE Ls ght HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

:GO TO 350$ IF ERROR 


SEQ 0170 


On 
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5 036712 
3286 036716 
3287 036724 
3288 036730 
3289 036734 
3290 
3291 036740 

ah 


037020 
3304 037024 


004737 
012737 


004737 





045042 


000071 001410 
001551 


000000 
000200 
044500 
037422 


044144 
045042 


044230 
037422 


045226 


037422 
057742 


037422 
046060 


037422 


037074 001124 
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JSR PC,TIMOUT :GO TO TIMOUT SUBROUTINE 


MOV #RD!GO,RMCS10 READ DATA COMMAND 
MOV #PUTINX Re ; TABLE INDEX 


MOVB #RMCS1, (R2) + 
MOVB #200, (R2) ; TABLE TERMINATOR 


JSR PC PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 135$ :GO TO 135$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY PUT SUBROUTINE 
350$ :GO TO 350$ IF ERROR 
135$: 
;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC,GETSTS 3GO TO GETSTS SUBROUTINE 

;WAIT FOR COMMAND TO COMPLETE 
JSR PC, TIMOUT 3GO TO TIMOUT SUBROUTINE 


READ STATUS FOR READ OFFSET OPERATION 
JSR PC,GET 


:GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 140$ :GO TO 140$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 350$ :GO TO 350$ IF ERROR 
CHE CK ERROR DURING READ OFFSET 
JSR PC PRIERR 7GO CHECK FOR PRIMARY ERRORS 
BR 150$ :G0 TO 150$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT ERROR “ DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 7GO BACK FOR MORE ERROR CHECKS 
ata JMP 350$ :GO TO 5508 IF ERROR 
JSR PC,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
BR 160$ :GO TO 160$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT ; ERROR " DEF INED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ BACK FOR MORE ERROR CHECKS 
os JMP 350$ :60 TO 350$ IF ERROR 
JSR PC, SECERR :60 CHE Ck FOR SECONDARY ERRORS 
BR 180$ 0 180$ IF NO ERROR 
NOP RETURN HERE. iF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ :60 BACK FOR MORE ERROR CHECKS 
al JMP 350$ GO TO 350$ IF ERROR 


; CHANGE LOOP ADDRESS 
MOV #190$ ,SLPERR 
BR 2008 :TO NEXT OPERATION 


FARRER EEEEREREEEEEEEERERERREEEEREEREKEKKEEEEE 


: Loop 3 WRITE CHECK OFFSET 


SEQ 0171 


On 


CZRMOAO RMO5S/3/2 FCTNL TST 3 


D 14 
MACRO VO3.01 11-APR-80 13:39:53 PAGE 12-101 


me 


T27 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE SEQ 0172 
3316 037074 190$: 
3318 ;PREPARE DEVICE FOR READ OPERATION 
3319 037074 004737 040472 JSR PC, TSTPRP ;PREPARE DEVICE FOR TEST 
037100 154130 15413 : TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: VERIFY PACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'' OR 'PIP’' IS SET 
: VERIFY RECALIBRATION 
037102 0004 BR 2008 :G0 TO 200$ IF NO ERROR 
037104 000240 NOP :RETURN HERE IF ERROR 
037106 104 EMT sERROR # DEFINED BY TSTPRP SUBROUTINE 
037110 000137 037422 JMP 350$ [GO TO 350$ IF ERROR 
3320 037114 200$: 
3322 “WRITE CHECK DATA IN OFFSET MODE 
3323 037114 240$: 
3324 037114 012702 001551 MOV #PUTINX,R2 
3325 037120 112722 MOVB  #RMDA, (R2)+ 
3326 037124 112722 000032 MOVB  #RMOF. (R2)+ 
037 112722 000034 MOVB  #RMDC.(R2)+ 
3328 037134 112722 000004 MOVB  #RMBA.(R2)+ 
3329 037140 112722 00000 MOVB  #RMWC.(R2)+ 
037 112712 000200 MOVB #200, (R2) ; TABLE TERMINATOR 
3332 037150 004737 044500 JSR PC PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
037154 0004 BR 245$ :GO TO 245$ IF NO ERROR 
037156 000240 NOP [RETURN HERE IF ERROR 
37160 104 EMT TERROR # DEFINED BY PUT SUBROUTINE 
oo 037162 000137 037422 JMP 350$ :GO TO 350$ IF ERROR 
3334 :SETUP OFFSET MODE FIRST 
3335 037166 345$: 
3336 037166 012737 000015 001410 MOV HOFF SET!GO,RMCS10 ;OUTPUT BUFFER 
3337 037174 012702 001551 MOV #PUTINX .R2 
3338 037200 112722 000000 MOVB = #RMCS1, (R2)+ 
3339 037204 112712 000200 MOVB #200, (R2) 
3341 037210 004737 044500 JSR PC, PUT 7GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
037214 000404 BR 250 :60 TO 250$ IF NO ERROR 
037216 000240 “RETURN HERE IF ERROR 
037220 104000 EMT TERROR # DEFINED BY PUT SURROUTINE 
037222 000137 037422 JMP 350$ :G0 TO 350$ IF ERROR 
342 037226 250S: 
;WAIT FOR COMMAND TO COMPLETE 
a 037226 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 
3346 yEXECUTE WRITE CHECK DATA COMMAND 
3347 037232 012737 000051 001410 MOV MCD !GO,RMCS10 
3348 037240 012702 001551 MOV #PUTINX.R2 
3349 037244 112722 000000 MOVB = #RMCS1, (Ro)+ 
112712 000200 MOVB #200, (R2) 


3350 037250 
3351 
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T27 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE SEQ 0173 

3352 037254 004737 044500 JSR PC PUT :GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
037260 000404 BR 255$ :GO TO 255$ IF NO ERROR 
037262 000240 NOP RETURN HERE IF ERROR 
037264 104000 EMT SERROR # DEFINED BY PUT SUBROUTINE 
037266 000137 037422 JMP 350$ :GO TO 350$ IF ERROR 

3355 037272 2558: 

3355 ;SETUP GET INDEX TABLE . TO READ ALL REGISTERS 

lee 037272 004737 044144 JSR PC,GETSTS 760 TO GETSTS SUBROUTINE 

3357 ;WAIT FOR COMMAND TO COMPLETE 

bi 037276 004737 045042 JSR PC, TIMOUT :GO TO TIMOUT SUBROUTINE 

3359 ;READ STATUS FOR WRITE CHECK OFFSET OPERATION 

3360 037302 004737 044230 JSR PC,GET 7GO READ REGISTER(S) WITH GET SUBROUTINE 
037306 000404 BR 260$ :60 TO 260$ IF NO ERROR 
037310 000240 NOP RETURN HERE IF ERROR 
037312 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
037314 000137 037422 JMP 350$ :GO TO 350$ IF ERROR 

3361 037320 260$: 

3363 ZCHECK ERROR DURING WRITE CHECK OFFSET OPERATION 

3364 037320 004737 045226 JSR PC ,PRIERR :GO CHECK FOR PRIMARY ERRORS 
037324 000405 BR 270$ 7GO TO 270$ IF NO ERROR 
037326 000240 NOP [RETURN HERE IF ERROR 
037330 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
037332 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
037334 000137 037422 JMP 350$ :GO TO 350$ IF ERROR 

3365 037340 2708: 

3366 037340 004737 057742 JSR PC,DTASTS ;GO VERIFY RESULTS OF DATA TRANSFER 

000405 BR 280$ :GO TO 280$ IF NO ERROR 

037346 000240 NOP [RETURN HERE IF ERROR 
037350 104000 EMT ‘ERROR # DEF INED BY DTASTS SUBROUT INE 
037352 004736 JSR PC, a(SP)+ [GO BACK FOR MORE ERROR CHECKS 
037354 000137 037422 JMP 350$ :GO0 TO 350$ IF ERROR 

3367 037360 280S: 

3368 037360 004737 046060 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
037364 000405 BR 300$ [GO TO 300$ IF NO ERROR 
037366 000240 NOP [RETURN HERE IF ERROR 
037370 104000 EMT ERROR " DEF INED BY SECERR SUBROUTINE 
037372 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
37374 000137 037422 MP 350$ :GO TO 350$ IF ERROR 

3369 037400 300$: 

3370 037400 032737 000200 001442 BIT #OFD,RMOFO 3; IN FORWARD DIRECTION OF OFFSET ? 

3371 037406 001005 BNE 350$ *BRANCH IF SO 

3372 037410 052737 000200 001442 BIS #OF D .RMOFO :SET TO FORWARD DIRECTION 

3373 037416 000137 036536 JMP 60$ ‘CHANGE OFFSET DIRECTION TEST AGAIN 


3374 037422 350$: 
3375 
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-SBTTL END OF SUB=PASS ROUTINE 


+ THIS IS_THE END OF SUB=PASS ROUTINE. THIS ROUTINE IS USED TO 

TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
:TO TEST, EXIT IS MADE TO *SEOP’ ROUTINE. OTHERWISE, RETURN 
:I1S MADE TO ‘READY’ ROUTINE. 


SEOSP: SCOPE 
NOP 


MOV TSTQUE ,RO :GET POINTER TO TSTQUE 
ADD #2,R0 [ADJUST POINTER TO NEXT DEVICE 
MOV RO, TSTQUE ZSAVE POINTER TO TSTQUE 
TST (RO) ZANY MORE DEVICES FOR TEST ? 
BEQ 1$ ;BR IF No 
JMP SHUT ; JUMP TO SHUT AND CHECK FOR CONTROL C 
1$: MOV WTSTQUE +2, TSTQUE™ iis aye INITIALIZE POINTER TO FIRST DEVICE IN 


-SBTTL END OF PASS ROUTINE 


Ete iter iii titi iti titi titi titi ttt 
: INCREMENT THE PASS NUMBER (S$PASS) 
TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yyyyy'' 
* WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO SHUT 


SEOP: 
NOP 
CLR STSTNM 23gene THE TEST NUMBER 
CLR STIMES 32:ZERO THE NUMBER OF aa A 
INC SPASS 2 INCREMENT THE PASS NUMBER 
BIC #100000, $PASS :DON'T ALLOW A NEG. NUMBER 
DEC (PC)+ LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN 77 YES 
MOV (PC)+,a(PC)+ 7 RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE 65$ es Tyee ASCIZ STRING 


BR 64$ 3:GET OVER THE ASCIZ 
3265$: .ASCIZ <12><15>/END PASS #/ 


MOV SPASS ,~(SP) :2:SAVE SPASS FOR TYPEOUT 
3: TYPE PASS NUMBER 
TYPDS 4 TYPE~-DECIMAL ASCII WITH SIGN 
TYPE ,67$ TYPE ASCIZ STRING 
>:GET OVER THE Aatie 


64$: 


BR 66$ 
4ig78: -ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 


MOV SERTTL,~(SP) izSAVE SERTTL FOR TYPEOUT 
a3 tt NUMBER OF ERRORS 


TYPDS 3:GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE . SCRLF i: TYPE CARRIAGE RETURN, LINE FEED 
CLR SERTTL ie CLEAR ERROR TOTAL 


$GET42: MOV a#42,R0 3:GET MONITOR ADDRESS 
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END OF PASS ROUTINE SEQ 0175 
037644 001405 BEQ $DOAGN ; =BRANCH IF NO + TOR 
037646 000005 RESET ::CLEAR THE WORLD 
037650 004710 SENDAD: JSR PC, (RO) 2360 TO MONITOR 
037652 000240 NOP 3; SAVE ROOM 
037654 000240 NOP :-FOR 
037656 000240 NOP 32ACT11 
037660 $DOAGN: 

037660 000137 JMP a(PC)+ 7 sRETURN 
037662 064076 SRTNAD: .WORD SHUT 
037664 377 377 000 $ENULL: .BYTE <-1,-1,0 7sNULL CHARACTER STRING 


21 


oh 


Saag we FCTNL TST 3 


H 14 
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1 .SBTTL__ SUBROUTINES 
2 FERRARA AREER REAR E ERE EEE KE 
: “SBTTL ERROR TYPEOUT ROUTINE 

| & ;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
6 :*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

** 
8 .UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
9 ; #PRINTED ON THE FIRST LINE: 
10 .ERROR MESSAGE is ASSEMBLED, FORMATTED AND PRINTED ON 
11 «FONE OR MORE SUCCEEDING LINES; 
12 :* -PAIRED LINES OF ERROR HEADERS AND ERROR DATA 
7 + *ARE PRINTED AFTER THE ERROR MESSAGE. 
15 037670 ERRTYP: 
16 037670 104414 VREG 
17 037672 032777 020000 141254 BIT #SW13,aSWR : INHIBI T TYPEOUTS?? 
18 037700 001402 BEQ 1$ :NO!! 
19 037702 000137 040420 21$ vei! 
20 s TYPE wit NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 
21 037706 104401 001217 i$: YPE —_, $CRLF 
22 037712 104401 040434 TYPE “ERTYOO :TYPE "UNTA"’ 
23 037716 013746 001234 MOV $UNIT,-(SP) ::SAVE $UNIT FOR TYPEOUT 

sz TYPE UNIT NUMBER 
037722 104403 TYPOS 3:60 TYBE-—OCTAL ASCII 
037724 003 .BYTE 3 :: TYPE 3 DIGIT(S) 
37725 “BYTE 0. :; SUPPRESS LEADING. ZEROS 
24 037726 005037 040424 CLR STN“B LOAD TEST NUMBER 
37732 013737 001226 040424 MOV Stesth. TSTNMB 
26 037740 104401 04044 TYPE  ,ERTYO1 :TYPE ‘‘TSTA#’" 
27 037744 013746 040424 V TSTNMB,-(SP) : SAVE TSTNMB FOR TYPEOUT 
:: TYPE TEST NUMBER 
037750 104403 TYPOS 7:G0 TYPE=-OCTAL ASCII 

037752 003 .BYTE 3 ::TYPE 3 DIGIT(S) 

037753 “BYTE 7: SUPPRESS LEADING ZEROS 
28 037754 005037 040426 CLR ERRNMB ; ERROR NUMBER FOR 
29 037760 113737 001130 040426 MOVB  $ITEMB,ERRNMB :TYPEOUT 
30 037766 001406 BEQ 2$ SKIP IF NO ERROR CALLED 
31 037770 104401 040452 TYPE ,ERTYO2 [TYPE “ERRA’’ 

32 037774 013746 040426 MOV ERRNMB ,- (SP) 72 SAVE ERRNMB FOR TYPEOUT 
7: TYPE ERROR NUMBER 
0000 104403 TYPOS -:GO TYPE=--OCTAL ASCII 

040002 003 .BYTE 3 i: TYPE 3 DIGIT(S) 

040003 000 “BYTE SUPPRESS LEADING ZEROS 
33 040004 104401 040461 2$: TYPE  ,ERTYO3 : ‘PCs’ 

34 040010 013746 001132 MOV SERRPC,-(SP)  ::SAVE SERRPC FOR TYPEOUT 
+: TYPE PROGRAM COUNTER 

040014 104403 TYPOS 7:GO TYPE=-OCTAL ASCII 

040016 006 -BYTE 6 Z:TYPE 6 DIGIT(S) 

040017 001 YTE 1 :TYPE LEADING ZEROS 
35 - GENERATE” POINTER TO ERROR TABLE’ UNLESS ERROR NUMBER IS 0 
36 040020 005737 040426 S$: TST ERRNMB WAS AN ERROR CALLED? 

37 040024 001575 BEQ 21$ “NO! ! 

38 040026 104401 001217 TYPE  ,$CRLF SYES-TYPE CRLF 

39 040032 105037 040432 CLRB  BOTFLG : CLEAR BOT FLAG 

40 040036 105037 040433 CLRB = CHRCNT “CLEAR CHARACTER COUNTER 
41 040042 013700 040426 MOV ERRNMB RO [RO POINTS TO FIRST OF 


SEQ 0176 


CZRMOAO RMOS/3/2 FCTNL 
ERROR TYPEOUT ROUTINE 





TST 3 


001570 


040236 
040430 


000015 
040433 
000012 
000011 
040433 
000007 
040433 
000040 
040430 
000100 
040430 
001217 
040433 
040236 


177777 


000002 


hi 
4$: 


5$: 


6$: 
7$: 
8$: 


9$: 


118: 


13$ 


BEQ 
YPE THE ERROR 
MOV 


I 
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RO 
RO 


RO 
#MSERRTB-8. ,RO 
(RO) ,R1 


13$ 
MESSAGE 
(R1)+,R2 
12$ 
R2,11$ 
BOTADR 
(R2)+,R3 
10 
ACR,R3 
6$ 
CHRCNT 
ALF ,R3 
5$ 


AHT RS 
8$ 

CHRCNT 
#7, CHRCNT 
7$ 

9$ 

CHRCNT 

#* ,R3 
9$ 


R2,BOTADR 
so - Soe 


BOTADR ,R4 
90$ 


2(RO) ,R1 
21$ 





-1 


FOUR ENTRIES IN ERROR 
TABLE 


;R1 POINTS TO ERROR MESSAGE 
BRANCH IF NO ERROR MESSAGE 


sR2=ADDRESS OF oF nest STRING 
BRANCH IF END OF MESSAGE 
LOAD ADDRESS OF STRING 
CLEAR BOT ADDRESS 

ZEND C OF STRING?? 


; CARRIAGE RETURN? ? 
ZNO! ! 


;YES-CLEAR CHAR COUNT 

GET gr CHARACTER 

SLINE FEED?? 

NOR fon NEXT CHARACTER 
81 ZONTAL TAB?? 


ADJUST CHARACTER COUNT 


:SPACE?? CHARACTER COUNT 


SAVE ADDRESS oF SPACE 
;END OF LINE?? 


iGET. ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 
: TYPE CRLF 

;CLEAR CHARACTER COUNT 

:SET UP R2 FOR TESTING 


=REPLACE SPACE 

SET BOT FLAG 

: TYPE ERROR MESSAGE STRING 
: STRING ADDRESS GOES HERE 
5 TRING TRUNCATED?? 


:VES-TVPE CRLF 


;SETUP 11$ FOR TYPING 
RESTORE SPACE 


;RESTORE R2 
TYPE REST OF STRING 


12$: 
; TYPE ERROR HEADER AND ERROR DATA 


:R1 POINTS TO ERROR HEADER TABLE 
BRANCH IF NO HEADER 


SEQ 0177 ) 






J 14 
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ERROR TYPEQUT SEQ 0178 


99 040310 104401 001217 TYPE ,$CR ; (ASSUME _NO DATA) 

100 040314 016002 000004 MOV 4(R 0) Re ;R2 POINTS TO DATA ADDRESS TABLE 
101 040320 016003 000006 MOV 6(RO) ,RS ;R3 POINTS TO FORMAT TABLE 
102 040324 012137 040334 14$: MOV (R1)+,15$ : HEADER ADDRESS FOR TYPE 
103 040330 001433 BEQ $ ; H_ IF END OF HEA 

104 ; (ASSUME END OF DATA) 

105 040332 104401 TYPE 

106 040334 15$: WORD HEADER ADDRESS GOES HERE 
107 040336 104401 001217 TYPE ,$CRLF 

108 040342 005702 TST sDATA WITH HEADER?? 

109 040344 001767 BEQ $ ZNO! ! 

110 040346 012204 MOV (R2)+,R4 3R4 POINTS TO dda ADDRESS 
111 040350 012305 MOV (R3)+,R5 :R5 POINTS TO FORMAT 

112 040352 105725 16$: TSTB (R5)+ WHAT KIND OF DATA?? 

113 040354 100407 BMI 18$ BINARY 

114 040356 001403 BEQ 17$ sOCTAL 

115 040360 013446 MOV @(R4)+,-(SP) :DECIMAL 

116 040362 104405 TYPDS 

117 040364 05 19$ 

118 040366 013446 17$: Vv @(R4)+,=(SP) 

119 040370 104402 TYPOC 

120 040372 000402 BR 19$ 

121 040374 013446 18$: MOV @(R4)+,-(SP) 

122 040376 104406 TYPBN 

123 040400 005714 19$: TST (R4) :MORE DATA?? 

124 040402 001403 BEQ 20$ zNO!! 

125 040404 104401 040467 TYPE -ERTY04 : YES-TYPE sf SPACES 

126 040410 000760 6$ AND CONTI 

127 040412 104401 001217 20$: TYPE , SCRLF : TYPE ONE BLANK LINE 

128 040416 000742 14$ BEFORE NEXT HEADER 

129 040420 104415 21$: RESREG 

i” 040422 000207 S PC 

132 040424 000000 TSTNMB: .WORD 0 TEST NUMBER 

133 040426 000000 ERRNMB: .WORD 0 ERROR NUMBER 

134 040430 000000 BOTADR: .WORD 0 :BE GINNING OF TEXT ADDRESS 
135 040432 000 BOTFLG: .BYTE 0Q :BOT FLAG 

is 040433 000 CHRCNT: .BYTE 0 {CHARACTER COUNT 

138 040434 125 116 111 ERTYOO: .ASCIZ @UNIT#A 

139 040442 054 040 124 ERTYO1: .ASCIZ @, TEST#@ 

140 040452 054 040 105 ERTYO2: .ASCIZ @, ERRMa 

141 040461 054 040 120 ERTYO5: .ASCIZ @, PC=a 

| 040467 040 040 000 yng -ASCIZ 23 @ 


=" 
> 
& 
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NN 2 AM 3 SP eo 
VS SONAR WW —OCMNOURUR 


22 


017637 
16 
105076 
16 


000000 


040530 
53 040544 000137 041402 
013737 


001376 041414 
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E 15 


-SBTTL TEST PREPARATION MODULE 


; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 

; REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
; SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 

: USING SUBROUTINES. 


7 CALL: 

: JSR PC, TSTPRP 

: -WORD = NNNNAN TASK/VERIF¥ DESCRIPTOR 
: 7? RETURN HERE IF NO ERROR 
: NOP RETURN HERE IF ERROR 

: ERROR ERROR DEFINED BY MODULE 


TASK/VERIFY DESCRIPTOR 
BIT 15 = 1 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 


: BIT 14 = 1 CLEAR CONTROLLER AND SELECT DEVICE 
: BIT 13 (RESERVED FOR DRIVE CLEAR) 
: BIT 12 = 1 PACK ACKNOWLEDGE IF VOLUME NOT VALID 
: BIT 1 = RECALIBRATE IF POSITIONING IN PROGRESS 
: BIT 9 
: BIT 
3 BIT 7 
: BIT6 = VERIFY CONTROLLER CLEAR OPERATION 
: BIT 5 (RESERVED FOR DRIVE CLEAR) 
: BIT4 =1 VERIFY PACK ACKNOWLEDGE 
: VERIFY RECALIBRATION 
: BIT 2 
: BIT 1 
3 BIT 0 
TSTPRP: 
;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 
MOV a(SP) ,500$ :STORE DESCRIPTOR 
ADD [MOVE SP TO USERS ERROR CALL 
CLRB = a SP) [CLEAR ERROR CAL 
SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 
JSR PC,GETSTS 7SETUP TO READ ALL REGISTERS 
JSR PC. GET [GET RMER2 
BR 15$ :BR IF NO ERROR DETECTED 
BR 10$ :GET OVER ERROR R 
WORD TERROR DEFINED BY GET SUBROUTINE 
10$: ADD #4, (SP) :XFER ERROR TO USER AND 
MOVB  10$-2,a(SP) 7GET ERROR NUMBER. 
JMP 400$ 
15$: MOV RMER21,505$ 3GET RMER2 AND SAVE FOR LATER 


SPARE EREREREAEKEEERAERAERAEERAEERE EE 


( 
SEQ 0179 ) 


CZRMOAQ RMOS/3/2 FCTNL TST 3 
MODULE 


TEST PREPARATION 


101 040724 


PaNASSSVSSRSe 
SESS 
Seay 


a ee 
Swnr-o 


005737 
100014 
gre 

11 
000401 


062716 
113776 
000137 


032737 
51 


032737 
001431 
004737 
000411 
000401 
000000 


032737 
001503 


004737 


041412 


052132 


040634 
041402 


044230 


040674 
041402 
053722 





L 
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041412 


041412 


041412 





14 


SEQ 0180 
;SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK 
TST 500$ ELECT DEVICE?? 
BPL 30$ ea i 
JSR PC, DEVSEL :G0 SELECT DEVICE 
BR 308 [NO ERROR = CONTINUE 
.WORD 0 ;ERROR NUMBER FROM DEVSEL 
20$: ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB 20$-2,a(SP) 
JMP 400$ 
FERRARA | 
{CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 
BIT #B1T14,500$ :CLEAR CONTROLLER?? 
BEQ 120$ NO! ! 
JSR PC, CNTCLR :GO0 CLEAR CONTROLLER | 
BR 60$ [CONTINUE - NO ERR 
BR 50$ 
40$:  .WORD 0 ZERROR NUMBER FROM CNTCLR 
50$: ADD #4, (SP) ‘TRANSFER ERROR TO USER 
MOVB  40$,a(SP) 
JMP 400$ | 


FEAR REREEEERE EKER 


iVERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 


| 
BIT #B1T6,500$ :VERIFY?? 
BEQ 120$ NO! ! | 
JSR PC,GET :GO GET STATUS | 
BR 908 [NO ERROR GETTING STATUS | 
70$: .WORD 0 ZERROR FROM GETTING STATUS 
80$: ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB = 70$, a(SP) 
JMP 400$ 
90$: JSR PC, CLRSTS :GO VERIFY STATUS CLEAR 
BR 120$ [NO ERROR IN CLEAR 
BR 110$ | 
100$:  .WORD 0 sERROR IN STATUS CLEAR | 
110$: TST (SP) + SSTRIP RETURN ADDRESS TO 
ADD #4, (SP) ;SUBROUTINE AND TRANSFER 
MOVB 106s, a(sP) [ERROR TO USER | 
JMP | 
SERRA RAE 
“EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 
;NOT VALID 
BIT #81T12,500$ :PACK ACKNOWLEDGE ?? 
BEQ 240$ NO! ! 
| 
JSR PC,GET | 


M14 
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TEST PREPARATION MODULE SEQ 0181 
115 040762 000411 BR 150$ ZNO ERROR GETTING RMDS 
116 040764 000401 BR 140$ 
117 040766 000000 130$:  .WORD 
118 040770 062716 000004 140$: ADD ryA : TRANSFER ERROR TO USER 
119 0640774 113776 040766 000000 MOVB 1368. SP) 
120 041002 000137 041402 JMP 
122 041006 032737 000100 001346 150$: BIT #VV,RMDSI 31S VOLUME VALID?? 
123 041014 001063 BNE 240$ YES! ! 
125 041016 005037 001510 CLR MEDENB :CLEAR MEDIA ENABLE 
126 041022 012737 000023 001410 MOV #PAKACK !GO,RMCS10 sLOAD PACK ACK COMMAND 
127 041030 112737 000000 001551 MOVB  #RMCS1,PUTINX  ;SETUP REGISTER INDEX TABLE 
128 041036 112737 200 001552 MOVB  #200,PUTINX+1 
129 041044 737 044500 JSR PUT 7GO WRITE COMMAND 
130 041050 000410 BR 180$ ZNO ERROR LOADING REGISTER 
131 041052 000401 BR 170$ 
132 041054 000000 160$: .WORD 0 ZERROR FROM PUT SUB 
133 041056 062716 000004 170$: ADD #4, (SP) : TRANSFER ERROR TO USER 
134 041062 113776 041054 000000 MOVB _—«- 160$,, a(SP) 
135 041070 544 400$ 
137 041072 004737 045042 180$: JSR PC, TIMOUT zWAIT FOR COMMAND TO COMPLETE 
139 22 SEERA EKKKKE 
140 VERIFY PACK ACKNOWLEDGE IF #BIT4 SET IN TASK 
141 041076 032737 000020 041412 BIT #B1T4,500$ :VERIFY PACK ACKNOWLEDGE ?? 
142 041104 001427 BEQ 240$ NO! ! 
144 041106 004737 044230 JSR PC,GET :GO GET STATUS 
145 041112 000410 BR 210$ :NO ERROR GETTING STATUS 
146 041114 000401 BR 200$ 
147 041116 000000 190$: .WORD 0 ZERROR FROM GET SUB 
148 041120 062716 000004 200$: ADD #4, (SP) : TRANSFER ERROR TO USER 
149 041124 113776 041116 000000 MOVB _ 190$,,a(SP) 
130 041132 000523 BR 400$ 
152 041134 004737 054602 210$: JSR PC,ACKSTS :GO CHECK ACKNOWLEDGE 
153 041140 000411 BR 246$ ZNO ERROR 
154 041142 000401 BR 230$ 
155 041144 000000 220$: .WORD 0 zPACK ACKNOWLEDGE ERROR 
156 041146 005726 230$: TST (SP)+ SSTRIP RETURN TO SUB AND 
157 041150 062716 000004 ADD #4, (SP) [TRANSFER ERROR TO USER 
158 041154 113776 041144 000000 MOVB  220$,a(SP) 
139 041162 000507 BR 400$ 
161 FREAK EEEEREEEREEEEEKEREREREE 
162 :RECAL IBRATE DRIVE IF BIT 11 IS SET IN TASK AND ‘'SKI'' IS SET 
163 "PIP’' IS ACTIVE. 
164 041164 5208: 
165 041164 032737 004000 041412 BIT #B1T11, 500 ;RECALIBRATE?? 
166 041172 001505 BEQ 410$ NO! ! 
168 041174 004737 044230 JSR PC, GET :GO GET RMDS 
169 041200 000410 BR 2706$ [NO ERROR GETTING RMDS 
170 041202 000401 BR 260$ 
171 041204 000000 250$: .WORD 0 ;ERROR FROM GET SUB 





172 041206 
1735 041212 
174 041220 
175 

176 041222 
177 041230 
178 041232 
179 041240 
180 

181 041242 
182 041250 
183 041256 
184 041264 
185 041270 
186 041272 
187 041274 
188 041276 
189 041302 
190 041310 
191 

192 041312 
193 

194 

195 

196 041316 
197 041324 
198 

199 041326 
200 041332 
201 041334 
202 041336 
203 041340 
204 041344 
205 041352 
206 

207 041354 
208 041360 
209 041362 
210 041364 
211 041366 
212 041370 
213 041374 
214 041402 
215 041406 
216 041410 
217 

218 041412 
219 041414 
220 


062716 
113776 
000470 


032737 
00 
032737 
00 
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000004 
041204 


040000 
020000 


000007 
000000 
000200 
044500 


000004 
041274 


045042 


000010 


044230 


000004 
041336 


055376 


000004 
041364 
000002 
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000000 


041412 





260$: ADD #4, (SP) ; TRANSFER ERROR TO USER 
MOVB = 250$, a(SP) 
400$ 
270$: BIT #SK1,505$ :WAS SKI SET ? 
BNE 280$ ‘YES, GO RECAL IBRATE 
BIT #PIP,.RMDSI iis, pup ACTIVE?? 
BEQ 410$ 
280$: MOV maths toh. wean ;LOAD RECALIBRATE COMMAND 
MOVB  #RMCS1,PUTINX ;AND REGISTER INDEX 
MOVE  #200,PUTINX+1 


JSR PC PUT *GO ISSUE RECALIBRATE 

BR 300$ =NO ERROR 

BR 290$ 

.WORD 0 ;ERROR IN REGISTER TRANSFER 
290$: ADD #4, (SP) : TRANSFER ERROR TO USER 

MOVB 290$-2,a(SP) 

BR 400$ 


300$: JSR PC, TIMOUT WAIT FOR COMPLETION 


FERRER EREREEEEEEREEEREEREKEEEEEKRERREEEKEEEEEEEKEEREKEEKEREE 


“VERIFY RE CALIBRATE IF BIT 3 SET IN TASK 
BIT #B1T3,500 :VERIFY RECALIBRATE?? 

BEQ 410$ NO! ! 
JSR PC,GET :GO GET STATUS 
BR 330$ ZNO ERROR GETTING STATUS 
BR 320$ 

310$: .WORD 0 ZERROR FROM GET 

320$: ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB  310$,a(SP) 
BR 400$ 


:GO CHECK RECALIBRATE 


330$: JSR PC,RCLSTS 
BR 410s ZNO ERROR DURING RECALIBRATE 
340$: .WORD 0 ZERROR DURING RECALIBRATE 


350$: TST (SP) + SSTRIP RETURN TO SUB AND 
#4, (SP) : TRANSFER ERROR TO USER 
MOVB  340$,a(SP) 


400$: SUB #2, (SP) MOVE SP BACK BEFORE ERROR 
410$: NOP 
RTS PC RETURN TO USER 


500$: .WORD 0 ; TASK/VERIFY DESCRIPTOR 
505$: .WORD 0 CONTAINS RMER2 





SEQ 0182 
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OW DWNAUSWN =OOONAUNESWN 


a ek ed od nd = 


VIS 


RAR 


forn-— 
Ann 


a 


062716 
105076 
162716 


010046 
005000 
016060 
062700 
022700 
103370 


012737 


001410 106314 
000002 
000046 


000003 043330 
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16 


-SBTTL BAD SECTOR MODULE 


+ THE MODULE IS INTENDED TO BE CALLED PRIOR TO hen THE po Ye 
NERATOR SUBROUTINE, AND PRESERVES THE ‘PUT BUFFER’’ SO THAT THE 
:BUFFER NEED ONLY Be FILLED ONCE FOR THE EXECUTION OF A FORMAT 


"THE MODULE + i TO THE CALLING TEST WITH THE Gonma’? poet OR ASSIGNED 
;SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘‘ASNDA'' ‘ASNDC"' 
:S0 THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF MTHE PUT BUFFER. 


: THE BAD SECTOR MODULE PERFORMS TWO wy FUNCTIONS: 
(1) RECOVER THE BAD SECTOR FILES AND 
(2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE ONE 
ELECTED IS NOT AVAILABLE FOR USE. 


; INFORMATION REQUIRED BY THE MODULE INCLUDES: 
: (1) .RMDCO - THE DESIRED CYLINDER, 

: (2)  .RMDAO - THE TRACK AND SECTOR ADDRESS, 
: (3) .RMWCO = THE WORD COUNT, 

; E COMMAND, 


(5) .RMOFO - THE FORMAT MODE 


CALL 
JSR PC ,BADSCT :CALL SUBROUTINE 
: BR v7? ;RETURN HERE IF NO ERR 
: TYPE -MESSAGE RETURN HERE IF THE BAD SECTOR FILE 
: : CANNOT BE RECOVERED. 
: ERROR N ;THE EMT OFFSET NUMBER 'N’ IS DEFINED 
: ;BY BAD SECTOR MODULE. 
BADSCT 
ADD #6, (SP) CLEAR ERROR NUMBER IN USER'S 
CLRB a(SP) :ERROR CALL. 


SUB #6, (SP) 


:TEST ‘Mt IA ENABLE’’ TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
;HAVE BEEN RECOVERED. 


Ist MEDENE ; HAS BAD SECTOR FILES BEEN RECOVERED ? 
JMP 3008 SYES, BAD SECTOR FILE IS AVAILABLE 
;RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER = 822., 
[TRACK = LAST TRACK (RMO2/3 = 4 AND RMOS = 18.). ALSO, SAVE THE USER'S 
gPUT BUFFER 
j MOV RO,-(SP) ::PUSH RO ON STACK 
CLR RO *START WITH RMCS1 
10$: MOV PUTBUF (RO) -BUFFER(RO) 
ADD #2,R0 ADVANCE TO NEXT BUFFER POSITION 
CMP #46,RO SEND OF BUFFER 
BHIS _10$ [NO !! 
;SET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE 
TSETUP PARAMETERS TO READ SKIP SECTOR vit E FIRST (3 SECTORS) 
MOV #3,500$ ;RETRY COUNT 


SEQ 0183 





CZRMOAO_RMOS/3/2 FCTNL 
SECTOR MODULE 
57 041476 012737 
538 041504 015737 
59 041512 012737 
60 0415 012737 
$} 041526 012737 
63 041534 012700 
64 041540 112720 
65 041544 112720 
66 041550 112720 
67 041554 112720 
68 041560 112720 
69 041564 112720 
70 041570 112720 
71 041574 012600 
72 
73 
74 041576 
75 041576 004737 
76 041602 004737 
77 041606 000411 
78 041610 000401 
79 041612 000000 
80 041614 062716 
81 041620 113776 
at 041626 000137 
84 041632 013737 
85 
86 
87 041640 012737 
88 041646 004737 
89 041652 000411 
90 041654 000401 
91 041656 000000 
92 041660 062716 
93 041664 113776 
Fe 041672 000137 
96 041676 004737 
97 041702 004737 
98 041706 000411 
99 041710 000401 
100 041712 000000 
101 041714 062716 
102 041720 113776 
4 041726 000137 
105 041732 004737 
106 041736 000412 
107 041740 000401 
108 041742 
109 041744 005726 
110 041746 716 
111 041752 113776 
16 041760 137 


000006 
041712 
042412 


057140 


000006 
041742 
042412 
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MOV #822. ,RMDCO ;DESIRED CYLINDER = 822. 
MOV LSTRK.RMDAO SSTARTING LAST TRACK, SECTOR = 0 
MOV #258. »RMWCO 8:2 + 236, WORDS (2°S COMP 
MOV #FMT16,RMOFO  :16 BIT 
MOV AMFGFIL,RMBAO :POINT 10 MANUFACTURES FILE BUFFER 
MOV #PUTINX,RO yRO POINTS TO REGISTER INDEX TABLE 
MOVB = ARMDA, (RO) + 
MOVB = #RMDC.(RO)+ 
MOVB  #RMWC.(RO)+ 
MOVB = #RMOF . (RO) + 
MOVB = #RMBA. (RO) + 
MOVB —#RMCS1, (RO) + 
MOVB #200, (RO) + 
MOV (SP) +,RO ::POP STACK INTO RO 
Set GET INDEX TABLE FOR READING STATUS 
JSR PC,GETSTS :SETUP GET INDEX REGISTER FOR STATUS 
JSR PC.GET :GET REGISTERS 
BR 30$ ‘BR IF NO ERROR 
BR 25$ : JUMP OVER ERR R 
.WORD 0 TERROR DEFINED BY GET SUB 
25$: ADD #6, (SP) :XFER ERROR TO USER AND 
MOVB 25$-2,a(SP) [GET ERROR NUMBER. 
JMP 215$ 
30$: MOV RMER21,550$ :GET RMER2 AND SAVE FOR LATER 
;CLEAR THE DEVICE USING DRIVE CLEAR COMMAND 
MOV ADRVCLR!GO,RMCS10 ;LOAD COMMAND IN PUT BUFFER 
JSR PUT ZOUTPUT COMMAND 
BR SRETURN HERE IF NO ERROR 
BR 40$ GET AROUND ERROR # 
35$: -WORD 0 TERROR # GOES HERE 
40$: ADD #6, (SP) [MOVE SP TO USERS ERROR CALL 
Move 358, gacs ;MOVE ERROR NUMBER TO USER 
J 
45$: JSR PC, TIMOUT WAIT FOR TEOMBLETION 
JSR PC.GET :60 GET STATUS 
BR 60$ ZRETURN HERE IF NO ERROR 
BR 55$ ET AROUND ERROR # 
50S: .WORD 0 TERROR # GOES HERE 
55$: ADD #6, (SP) [MOVE SP TO USERS ERROR CALL 
MOVB  50$,a(SP) :MOVE ERROR # TO USERS ERROR CALL 
JMP 215$ 
60$: JSR PC, DRVSTS 3GO VERIFY DRIVE CLEAR COMMAND 
BR 75$ :RETURN HERE IF NO ERROR 
BR 70$ GET AROUND E 
65$: .WORD 0 TERROR # GOES HERE 
70$:  =‘TST (SP)+ [STRIP RETURN TO SUBROUTINE 
ADD #6, (SP) [MOVE SP TO USERS ERROR CALL 
Move 65$ a(SP) [MOVE ERROR # TO USER CALL 


SEQ 0184 | | 





CZRMOAO RMO5S/3/2 FCTNL 

BAD SECTOR MODULE 
114 
115 041764 
116 041764 032737 
112 041772 001052 
119 041774 012737 
120 042002 004737 
121 042006 000411 
122 042010 000401 
123 042012 
124 042014 062716 
125 042020 113776 
126 042026 000137 
128 042032 004737 
129 042036 004737 
130 042042 000411 
131 042044 000401 
132 042046 000000 
133 042050 062716 
134 042054 113776 
135 042062 000137 
137 04 004737 
138 042072 000412 
139 042074 000401 
140 042076 
141 042100 005726 
142 042102 062716 
143 042106 113776 
144 042114 000137 
145 
146 
147 042120 
148 042120 032737 
149 042126 001 
150 042130 032737 
151 042136 001452 
153 042140 012737 
154 042146 004737 
155 042152 000411 
156 042154 000401 
157 042156 000000 
158 042160 062716 
159 042164 113776 
160 042172 000137 
162 042176 004737 
163 042202 004737 
164 042206 000411 
165 042210 000401 
166 042212 000000 
167 042214 062716 
168 042220 113776 
169 042226 000137 


TST 3 


042046 
042412 
054602 
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51 SSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 
001346 BIT #VV,RMDSI z1S VV RESET ?? 
BNE 120$ =NO !! 
001410 MOV #PACACK!GO,RMCS10 sLOAD COMMAND 
JSR PC PUT ; T COMMAND TO DRIVE 
BR 90$ [RETURN HERE IF NO OUTPLT ERROR 
BR 85$ ZGET AROUND ERROR # 
80$: .WORD 0 TERROR # GOES HERE 
85$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB _—-80$, a( SP) [MOVE ERROR # TO ERROR CALL 
JMP 215$ 
90$: JSR PC, TIMOUT :WAIT FOR COMPLETION 
JSR PC.GET :GO GET STATUS FOR PACK ACK 
BR 105$ ;RETURN HERE IF NO ERROR 
BR 100$ :GET AROUND ERROR # 
95$: .WORD 0 TERROR # GOES HERE 
100$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB 95$,a(SP) :MOVE ERROR # TO CALL 
JMP 215$ 
105$: JSR PC,ACKSTS :GO VERIFY ACKNOWLEDGE STATUS 
BR 120$ sRETURN HERE IF NO ERROR 
BR 115$ “GET a 
110$: 0 TERROR # GOES HERE 
115$: TST (SP)+ SSTRIP RETURN TO SUBROUTINE 
ADD #6, (SP) sMOVE SP TO USERS ERROR CALL 
000000 MOVB _©110$,a(SP) :MOVE ERROR # TO USERS ERROR CALL 
JMP 215$ 
iRECAL IBRATE THE DRIVE IF ‘'SKI'' OR ‘PIP IS SET 
043342 BIT #SK1,550$ zWAS SKI SET ? 
BNE 125$ :YES, GO RECALIBRATE 
001346 BIT #PIP,RMDSI tIS PIP SET ?? 
BEQ 165$ =NO !! 
001410 125$: MOV #RECAL !GO,RMCS10 ZLOAD RECALIBRATE COMMAND 
JSR PC, PUT :PUT THE RECAL COMMAND 
BR 135$ ZRETURN HERE IF NO ERROR 
BR 130$ [GET AROUND E 
-WORD 0 TERROR # GOES HERE 
130$: ADD #6, (SP) [MOVE SP TO USERS ERROR CALL 
000000 MOVB  130$-2,a(SP) | :MOVE ERROR # TO USERS CALL 
JMP 215$ 
135$: JSR PC, TIMOUT ;WAIT FOR RECALIBRATE TO COMPLETE 
JSR PC’ GET 7GO0 GET RECAL STATUS 
BR 150$ SRETURN HERE IF NO ERROR 
BR 145$ [GET AROUND ERROR # 
140$: .WORD 0 TERROR # GOES HERE 
145$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
000000 move 1408, a(sP) sMOVE ERROR TO USERS CALL 





SEQ 0185 


CZRMOAQ aah od FCTNL 
MODULE 
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BAD SECTOR SEQ 0186 

171 042232 004737 055376 150$: JSR PC .RCLSTS 3GO VERIFY RECALIBRATE STATUS 
172 042236 000412 BR 165$ ;RETURN HERE IF NO ERROR 
173 042240 000401 BR 160$ “GET AROUND ERROR # 
174 042242 155$: .WORD 0 TERROR # GOES HERE 
175 042244 005726 160$: TST (SP) + ‘STRIP RETURN TO 
176 042246 716 000006 ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
177 042252 113776 042242 000000 MOVB _«- 155$,, a(SP) [MOVE ERROR # TO USERS CALL 
178 042260 137 042412 JMP 215$ 
180 as: READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 
182 042264 012737 000073 001410 MOV #RH!GO,RMCS10 ; LOAD READ HEADER AND DATA COMMAND 
183 042272 004737 044500 JSR PC PUT T COMMAND 
184 042276 000411 BR 180$ “RETURN HERE IF NO ERROR 
185 042300 000401 BR 175$ [GET AROUND ERROR # 
186 042302 170$: .WORD 0 TERROR # GOES HERE 
187 042304 062716 000006 175$: ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
188 042310 113776 042302 000000 MOVB _—«-170$, a(SP) ZMOVE ERROR # TO USERS ERROR CALL 
189 042316 000137 042412 JMP 215$ 
191 042322 004737 045042 180$: JSR PC, TIMOUT ;WAIT FOR READ OPERATION TO COMPLETE 
192 042326 004737 044230 JSR PC.GET :GO GET STATUS FOR READ OPERATION 
193 042332 000411 BR 195$ [RETURN HERE IF NO ERROR 
194 042334 000401 BR 190$ [GET AROUND ERROR # 
195 042336 185$:  .WORD TERROR # GOES HERE 
196 042340 062716 000006 190$: ADD #6, (SP) [MOVE SP TO USERS ERROR CALL 
197 042344 113776 042336 000000 MOVB _—«-185$, a(SP) [MOVE ERROR # TO CALL 
198 042352 000137 042412 JMP 215$ 
200 042356 004737 057742 195$: JSR PC, ,DTASTS :GO VERIFY RESULTS OF READ OPERATION 
201 042 000412 BR 210$ ZRETURN HERE IF NO ERROR 
202 042364 000401 BR 205$ 

3 042366 200$ ~WORD 0 * ERROR # GOES HERE 

042370 005726 205$: TST (SP) + :STRIP RETURN ADDRESS TO SUBROUTINE 
205 042372 062716 000006 ADD #6, (SP) “MOVE SP TO USERS ERROR CAL 
206 042376 113776 042366 000000 MOVB  200$, a(SP) sMOVE ERROR # TO USERS CALL 
207 042404 000137 042412 JMP 215$ 
209 042410 000450 210$: BR 2408 ZNO ERRORS DETECTED 
211 ST Gahan tehh bands btartOn tae Gein te iden ae ton cee a 
212 AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
213 “THE SECTOR WILL BE RETRIED IF POSSIBLE. 
214 042412 215$: 
215 042412 005337 043330 DEC 500$ ZYES, DECREMENT RETRY COUNT AND 
216 042416 100030 BPL 225$ [RETRY IF COUNT NOT NEGATIVE. 
218 ; THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 
219 0424 220$: 
220 042420 013746 001376 MOV RMER? I . a5 (SP) :GET ER2 
221 042424 042726 100000 BIC BSE, ( [ANY NON-MEDIA ERRORS ? 
222 942430 001027 BNE 230$° :YES, EXIT AND REPORT ERROR ON RETURN 
224 042432 013746 001350 MOV RMER1I1,-(SP) GET ER1 
225 042436 042726 100720 BIC #DCK!HCRC!HCE FER E CH, (SP)+ 
THERE ANY NON-MEDIA ERRORS ? 

227 042442 001022 BNE 230 YES. EXIT AND REPORT ERROR ON RETURN 
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BAD SECTOR MODULE 


SEQ 0187 


228 
229 ;THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 
230 :DUE TO THE MEDIA. SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM 
231 TANOTHER AREA ON THE LAST TRACK 
233 042444 062737 000002 001416 ADD #2,RMDAO ZADVANCE SECTOR ADDRESS BY 2 
34 042452 122737 000012 001416 CMPB = #10. ,RMDAO ZQUIT IF ALL MFG SECTORS HAVE BEEN 
235 042460 00147 BEQ 2 S TRIED. 
236 042462 122737 000040 001416 CMPB  =s #32. , RMDAO ZQUIT IF ALL USER SECTORS HAVE BEEN 
337 042470 001407 BEQ 230$ : TRIED. 
239 042472 012737 000003 043330 MOV #3,500$ sREINSTATE RETRY COUNT FOR THIS SECTOR 
240 042500 162716 000006 225$: SUB #6, (SP) :MOVE SP BACK TO NO ERROR 
241 042504 000137 041576 JMP 20$ SRETRY THE READ OPERATION 
:THE BAD SECTOR FILE CANNOT BE READ 

244 042510 530$: 
245 042510 000240 NOP 
246 042512 032777 020000 136434 BIT #SW13,aSWR ; INHIBIT MESSAGE ? 

042520 001002 BNE YES 
248 042522 162716 000004 SUB #4, (SP) “MOVE SP TO ERROR RETURN 
349 042526 000137 043324 235$:  JMP 410$ :GO TO MODULE EXIT 
251 ;THE SECTOR WAS RECOVERED WITHOUT ERROR = READ THE USER FILE IF 
252 “THIS IS THE MGF FILE OR ELSE DONE. 
253 042532 2408: 
254 042532 022737 111332 001414 CMP MUSRFIL,RMBAO ;WAS THE USER FILE READ ?? 
255 042540 001446 BEQ 260$ -YES = READ IS COMPLETE 
256 042542 112737 1 001416 MOVB #10. ,RMDAO *READ THE USER FILE LAST TRACK, SECTOR = 10. 
$20 042550 012737 111332 001414 MOV MUSRF IL, RMBAO ;POINT TO USERS FILE BUFFER 
259 042556 012737 043330 MOV #3,500$ ;RELOAD THE RETRY COUNT FOR THIS SECTOR 
360 042564 000137 041576 JMP 20$ 7GO READ THE USER FILE 
<2 ;DUMMY THE BAD SECTOR FILES 
263 042570 250$: 

042570 01 MOV RO,-(SP) + PUSH RO ON STACK 

042572 010146 MOV R1,=(SP) :PUSH R1_ON STACK 
264 042574 012701 000374 MOV #252. ,R1 [R17 = NUMBER OF ENTRIES IN FILES 
265 042600 012700 000014 MOV #14,R0 [RO = ADDRESS INDEX TO FILE STORAGE 
266 042604 012760 177777 110324 255$: MOV #-1-MFGFIL(RO) ENTER ALL ONES IN MFG FILE 
267 042612 012760 177777 111332 MOV al USRFIL(RO) ENTER ALL ONES IN USER FILE 
268 042620 005720 TST ROS+ SADVANCE ADDRESS 

9 042622 005301 DEC . :DECREMENT COUNT 

270 042624 001367 BNE. *— 2558 | : CONTINUE IF NOT DONE 
272 042626 012701 000006 MOV #6.,R1 ;CLEAR HEADER, CLEAR ID & SERIAL NUMBERS 
273 042632 005000 CLR RO 
274 042634 005060 110324 257%: CLR MF GF IL (RO) 
275 042640 005060 111332 CLR USRF IL (RO) 
276 042 005720 TST (RO) + ;ADVANCE ADDRESS 
277 042646 005301 DEC R1 
278 042650 001371 BNE 2578 
279 042652 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
7 042654 012600 MOV (SP) +-RO ::POP STACK INTO RO 
281 ;SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 








BAD SECTOR 


CZRMOAQ_ RMOS/3/2 FCTNL 
MODULE 





282 042656 
04565 


2656 
283 042660 
284 042662 
285 042670 
286 042676 
287 Be Sons 


289 042710 


$8 
z 
g 


WWWWWNWWW NWA 
ed ed ed ak ad ed od ed ed ed 
WONOULSWN—O 


320 
321 
322 


010046 
005000 
012737 
016060 
062700 
022700 
103370 
012600 


000767 
010237 


012737 
004737 
012737 
004737 
000137 
013737 


013737 
013737 


TST 3 


177777 
106314 
000002 


000046 


001444 
001416 


001412 
000400 
000002 
000402 


043330 


110340 
043042 
111346 
043042 
043302 
potas 


001514 
043330 
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001510 
001410 


001410 


260$: 


265$: 


RO,-(SP) PUSH RO ON STACK 
RO *RO IS REGISTER INDEX 
#=-1 ,MEDENB 
BUFFER GRO: PUTBUF (RO) 
#2,R0 ZADV. amae RO 
ws “te [DONE ? 
(SP)+,RO 33POP STACK INTO RO 


OREO III OIDIIISISIISIIS IIIT RI RR Rit kt tk 
VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE 
AND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE 
gether IS IN ANY OF THE FILES. 


SERRE REAR RR ERE 


jLow INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 


305$: 


310$: 


315$: 


320$: 


BR 
MOV 


RO,~(SP) 32PUSH RO ON STACK 

R1,=(SP) + PUSH R1 ON STACK 

R2,~(SP) SH R2 ON STACK 

RMDCO,ASNDC ;LOAD REQUESTED CYLINDER, TRACK, 

RMDAO , ASNDA AND SECTOR ADDRESS IN ASSIGNED STORAGE 
R2 zR2 = NUMBER OF SECTORS 

RMWCO,RO x = WORD COUNT 

RO MAKE NUMBER POSITIVE 


R_OF WORDS PER SECTOR 


#256. ,R1 R1 = NUMBE 
A tt i181 THIS A HEADER AND DATA COMMAND ?? 


#258. .R1 S CHANGE WORDS PER SECTOR 
R1,RO :1$_ THERE A FULL SECTOR ?? 
310$ YES ! 

RO :1S RO ZERO ?? 

315$ :YES ! 

Re < TNCREMENT FOR PARTIAL SECTOR 


R1,R0 SUBTRACT ONE SECTOR FROM WORD COUNT 
R2 : INCREMENT SECTOR COUNT 


305$ 
R2,500$ SAVE SECTOR COUNT 


OAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE 
ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE 
;SECTOR COUNT IS MORE THAN ONE. 


MOV 


JSR 
MOV 


JSR 
JMP 


MOV 
MOV 
MOV 


#MFGFIL+14,540$ ;THE STARTING ADDRESS OF MFG FILE 
:TO BASE “ey Tit y STORAGE. 


PC, 320$ 'GO SEARCH FILE 
MUSRFIL+14,540$ :LOAD STARTING ADDRESS OF USR FILE 
:TO BASE ADDRESS STORAGE . 
PC, 320$ :60 SEARCH FILE 
400$ ZDONE WITH ALL FILE SEARCHES !! 
ASNDC ,520$ LOAD COMPARING CYLINDER ADDRESS 


ARING TRACK, SECTOR ADDRESS 


ASNDA , 530$ : LOAD COMP 
;LOAD NUMBER OF SECTORS TO CONFIRM 


500$, 510$ 


BAD SECTOR MOD 

335 

336 

337 043064 

338 043 

339 043070 

340 043074 

341 04 

342 043102 

343 

344 

345 

346 043104 

347 043104 

348 043112 

349 

350 043114 

351 043122 

352 

353 043124 

354 043126 

355 

356 

357 

358 043130 

359 043130 

360 043134 

361 043142 

362 043144 

363 043150 

364 043154 

365 043162 
0431 

367 043170 

368 043174 

369 043202 

370 


ace on hae FCTNL 


126037 
001004 
126037 
001402 


022029 
000760 


105237 


005337 
001442 


105237 


TST 3 


043340 
177777 


043334 


000003 


000002 
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043337 


043336 


001514 


001515 


001512 


043336 


043337 


043334 


bcs: 


3 


sSETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 


V 
CMP 
EQ 
CMP 
BNE 


at ENTRY EQUALS COMPARING CYLINDER. 
HE COMPARING TRACK, AND SECTOR. 


3(RO) ,530$+1 
350$ 


CMPB 
BNE 


CMPB 
BEQ 


50$: CMP 
BR 


540$,R0 
a (RO) 


370 
(RO) ,520$ 
350$ 


2(RO) ,530$ 
360$ 


(RQ) +, (RO) + 
330$ 


iSYLINDER, TRACK AND SECTOR ADDRESS 


330$: 


LOAD THE BASE ADDRESS IN RO 
21S gd FILE TERMINATOR ? 


ZBR ES 
:DOES, TAB TABLE ENTRY = COMPARING CYLINDER ? 


SEE IF THE NEXT ENTRY EQUALS 


;DOES TABLE ENTRY = COMPARING TRACK ? 
;BR IF NO 
;DOES TABLE ENTRY = COMPARING SECTOR ? 
3;BR IF YES 


NO, ADJUST CYLINDER POINTER IN BAD FILE 
AND CONTINUE SEARCH. 


sTHE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE. 
jADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER. 


3 THE COMPARING SECTOR IS NOT IN 


ASNDA 
#31. ,ASNDA 
320$ 
ASNDA 


ASNDA+1 
LSTRK+1 ,ASNDA+1 
320$ 


ASNDA 
ASNDC 
#822. ,ASNDC 
320$ 
ASNDC 
320$ 


: INCREMENT _ 
ae " OK ? 


CLEAR SECTOR AND ADVANCE TRACK 
3 TRACK OK ? 

SYES 3% 

CLEAR TRACK AND SECTOR 

: INCREMENT CYLINDER 

33 ae OK ?? 


sYEs 23 
:START AT CYLINDER 0 
SEARCH NEXT SECTOR 


N THE BAD SECTOR FILES. 


DECREMENT THE 
NUMBER 


NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE 


;1S_ NOT ZERO. 


370$: 


510$ 
410$ 


530$ 
#31. ,530$ 
375$ 


530$+1 
LSTRK+1,530$+1 
375$ 


530$ 
520$ 
#822. ,5208 
375$ 
520$ 


:DECREMENT NUMBER OF SECTORS TO COMPARE 
:DONE IF ZERO 


: INCREMENT COMPARING SECTOR 
;SECT " OK ? 


SCLEAR SECTOR 
: INCREMENT TRACK 
ives ?? 

CLEAR SECTOR TRACK 
‘INCREMENT Se pena 
: CYLINDER OK ? 


START AT CYLINDER 0 





SEQ 0189 


392 

393 043300 

394 

395 

396 043302 

397 043302 

398 043310 

399 043316 
043320 
043322 

400 

401 043324 

rei 043326 


000671 


013737 
013737 


are oe hae FCTNL TST 3 
BAD SECTOR MODUL 


001512 
001514 
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375$: 


410$: 


BR 325$ ;SEARCH NEXT SECTOR 
jASSIGN THE SECTOR AND RETURN TO USER 
"Mov ASNDC ,RMDCO :LOAD CYLINDER 
MOV ASNDA.RMDAO [LOAD TRACK AND SECTOR 
MOV (SP) +-R2 t;POP STACK INTO R2 
MOV (SP)+-R1 ::POP STACK INTO R1 
MOV (SP)+-RO t:POP STACK INTO RO 
NOP 
RTS PC 
;THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 
.WORD 0 ;RETRY COUNT/ NUMBER OF SECTORS REQUIRED 
"WORD 0 [NUMBER OF SECTORS TO COMPARE 
“WORD 0 [COMPARING CYLINDER 
“WORD 0 [COMPARING TRACK AND SECTOR 
“WORD 0 :BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 
"wORD 0 [CONTAINS RMER2 


SEQ 0190 
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BUFFER GENERATOR SUBROUTINE 


1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
20 


a ad od nd nd od 


52 043514 


013737 
032737 
001445 


012702 
032737 
001404 
052710 
012702 


042600 


000001 
001333 
000001 
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043576 
043600 


001410 


001442 


000001 


-SBTTL BUFFER GENERATOR SUBROUTINE 
: THIS SUBROUTINE 5 eae A DATA BUFFER FOR WRITE COMMANDS. THE 
T RMBA AND | DS 


BUFFER STARTS A 


LONG. THE BUFFER 


S RMWC WOR 
CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS 
2 FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO. 
gid FOR THE BUFFER IS EXTRACTED FROM RMDC, 


; HEADE 


10$: 


15$: 


ADDRESS OF DATA rpity 
LENGTH OF DATA BUFFER 

ADDRESS OF DATA PATTERN 
LENGTH OF DATA PATTERN 


SECTOR 


JSR 
?? 


COUNT 


PC, GENBUF 


RO,-(SP) 


RMDAO..65 
#81T1,RMCS10 
25$ 

60$, (RO) 
#MSE 'USE, (RO) 
#29. .R2 
#FMT16,RMOFO 
#FMT16, (RO) 
31. Re 

R1 

50$ 


(RO) + 
65$, (RO) + 
R1 


1(R3) 

LSTRK+1,1(R3) 
5$ 

1(R3) 





RETURN HERE 


PUSH RO ON STACK 


3 PUSH R4 STACK 
:LOAD DATA BUFFER ADDRESS 
WORD COUNT 


:LOAD 
LOAD STARTING CYLINDER ADDRESS 
LOAD STARTING TRACK,SECTOR ADDRESS 


WRITE HEADER & DATA?? 

[WRITE E HEADER WORD #1 

:SET BAD SECTOR FLAGS FOR GOOD SECTOR 
yR2 = MAXIMUM SECTOR ADDRESS (29.) 
:18 BIT FORMAT?? 


7SET 16 FORMAT BIT IN HEADER 
: CHANGE MAXIMUM SECTOR ADDRESS (31.) 


2 INCREMENT WORD COUNT 
sEXIT IF DONE 


MOVE RO TO HEADER WORD #2 
WRITE HEADER WORD #2 

: INCREMENT WORD COUNT AND 

EXIT IF DONE 

ADVANGE SECTOR ADDRESS 

: SECTOR OVERFLOW ?? 

SYES = CLEAR SECTOR ADDRESS 

SADVANCE TRACK ADDRESS 

: TRACK OVERFLOW ?? 

[YES = CLEAR TRACK ADDRESS 


SEQ 0191 
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3 043520 


043572 
67 043574 
69 043576 
y 043600 


105237 043576 
012704 000400 
013702 001174 
013703 001176 
012220 


258: 
30$: 


40$: 


50$: 


60$: 
65$: 





60$ 
#256. ,R4 
$TMPO ,R2 


(SP)+,RO 
PC 


(R2)+, (RO) + 


K 1 
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ADVANCE tN ADDRESS 
; LOAD TOR DATA COUNT 


T 
[WRITE DATA PATTERN 
2 INCREMENT WORD COUNT AND 
EXIT IF D 
;DECREMENT SECTOR COUNT 
;START NE 
CONTINUE DATA PATTERN 
+ ¢POP STACK INTO R4 


:sPOP STACK INTO RO 


:CYLINDER ADDRESS STORAGE 
: TRACK, SECTOR ADDRESS STORAGE 


| ? 32S Rees 
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38 043736 030237 001402 40$: BIT R2,RMEC21 21S THIS BIT SET IN ECC PATTERN ?? 


COMPARE BUFFER SUBROUTINE SEQ 0193 

] .SBTTL COMPARE BUFFER SUBROUTINE ‘ 

3 :THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO, 

4 ; ASSUMING THAT BUFONE IS THE BUFF R FROM WHICH DATA WAS WRITTEN 

5 AND BUFTWO IS THE BUFFER TO SHI CH DATA WAS READ. ERRORS IN BUFFER 

6 [COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL. 

8 3; CALL: | 

9 :(1) «JSR PC, CMPBUF 

10 (2) .WORD WRITE BUFFER ADDRESS | 

11 : “ WORD READ BUFFER ADDRESS 

12 7(3) BR RETURN HERE IF NO ERROR 

13 7(4) NOP RETURN HERE IF ERROR 

14 :(5) ERROR ERROR DEFINED BY SUBROUTINE 

12 3 (6) 77? : 

17 043602 CMPBUF : | 
043602 010046 MOV RO,-(SP) z2PUSH RO ON STACK 
043604 010146 MOV R1,-(SP) : :PUSH R1 ON STACK | 
043606 010246 MOV R2,-(SP) PUSH R2 ON STACK 
043610 010346 MOV R3,-(SP) PUSH R3 ON STACK | 

18 043612 005057 044142 CLR =—s«*156s CLEAR CORRECTION FLAG | 

20 ;DETERMINE IF DATA SHOULD BE CORRECTED | 

21 043616 033737 004000 001366 BIT EC1,RMOF I WAS ECC CORRECTION ALLOWED ?? | 

22 043624 001063 BNE 

23 043626 032737 100000 001350 BIT #DCK,RMER1I ZMas” THERE A DATA CHECK ?? | 

24 043634 001457 BEQ [NO ! | 

25 043636 032737 000100 001350 BIT #ECH,RMER1I 1S ERROR CORRECTION HARD SET ? 

26 043644 001053 BNE 80$ TYES ! | 

27 043646 032737 010000 001366 BIT #FMT16,RMOFI =: IS this 16 BIT FORMAT ?? 

28 043654 001447 BEQ 80$ =NO ! | 

30 ;CORRECT DATA USING ECC INFORMATION 

31 043656 013700 001414 MOV RMBAO, RO. ;RO = STARTING BUFFER ADDRESS | 

32 013701 001400 MOV RMECTILR :R1 = ECC POSITION 

33 043666 052737 100000 044142 BIS #B1T15; ‘bos ZSET CORRECTION FLAG | 

35 ;MOVE RO TO WORD BOUNDARY OF ERROR BURST 

36 043674 022701 000020 i0$: CMP #16.,R1 :1S BIT POSITION > 1 WORD | 

37 043700 103004 BHIS 20$ =NO ! 

38 043702 162701 000020 SUB #16.,R1 CUB TRACT 1 WORDS WORTH | 

39 043706 005720 TST (RO) + TADVANCE BUFFER ADDRESS 1 WORD | 

40 043710 000771 BR 10$ 

41 043712 012702 000001 20$: MOV #1,R :Re = 8 = BIT POINTER | 

4@ 043716 010203 MOV R2.R -R3 = BIT NUMBER 

44 -MOVE R2 TO STARTING BIT OF ERROR BURST 

45 043720 020301 50$: CMP R3,R1 S_R5 SAME AS R1 ?? 

46 043722 001403 BEQ acg" yes" 

47 043724 006302 ASL R2 HiFT ‘BIT POINTER 

48 043726 005203 INC R3 S INCREMENT BIT NUMBER 

49 043 000773 BR 30s 

30 043732 012703 000013 35$: MOV #11. ,R3 7R3 = LENGTH OF ERROR BURST 

5 :CORRECT THE ERROR BURST 
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000010 
000010 


== 
oo 


0000 
0000 
044142 


000010 
000010 


BEQ 60$ 
BIT R2, (RO) 
BEQ 50$ 
BIC R2, (RO) 
BR 60$ 
50$: BIS R2, (RO) 
60$: ASL R2 
BNE 70$ 
MOV #1,R2 
TST (RO) + 
70$: DEC R3 
BNE 40$ 
;COMPARE WRITE BUFFER TO READ BUFFER 
80$: MOV @10(SP) RO 
ADD #2,10(SP 
MOV @10(SP) ,R1 
ADD #2,10(S 
MOV RMWCI, 

SUB RMWCO,R2 
90$: CMP (RO) +, (R1)+ 
BNE 100$ 

DEC 
BNE 90$ 
BR 110$ 
:DATA COMPARE FAILED 
100$: — MOV -(RO) , SGDDAT 
MOV -(R1) . $BDDAT 
MOV RO, $GDADR 
MOV RI» SBDADR 
MOV R2.$TMPO 
ADD #4.10(SP) 
MOVB #336,a@10(SP) 
7 CHANGE ERROR NUMBER 
BIT #B1T1 
BEQ 105$ 
MOVB #163,a10(SP) 
105$: SUB #2,10(SP) 
NOP 
110$: 
MOV (SP)+,R3 
MOV (SP) +-R2 
MOV (SP)+°R1 
MOV (SP) +.RO 
RTS PC 
150$: .WORD 


NO = DO NOT CORRECT THIS BIT 
:IS THE BIT PRESENTLY SET ?? 


:RESET THE BIT 


SET THE BIT 
sSHIFT TO NEXT BIT 


CONTINUE WITH FIRST BIT OF NEXT WORD 
ee BURST ?? 


RO = WRITE BUFFER 
;MOVE e TO READ ADDRESS 
:R1 = READ BUFFER 


:MOVE SP TO RETURN ADDRESS 
zR2 = NUMBER OF WORDS TRANSFER 


2 COMPARE } ior eam 

COMPARE - N) ERROR 
+ th | GOOD DATA FOR TYPEOUT 
:STORE ADDRESS OF BAD DATA 


; STOR OUNT OF ERROR 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 


‘ ECC CORRECTION FAILED 


oe ECC CORRECTION USED ?? 
sECC CORRECTION FAILED 


;MOVE SP TO RETURN IF ERROR 
+ ¢POP STACK INTO R3 


“RETURN TO USER 
sECC CORRECTION FLAG 


SEQ 0194 


1 


SwmNOuUAWwR 
PPRPERERER 
REE 
OLS 


RERRRE 
— — so od 
an 
AVS 


3 3 
NISL 


OWONOULWI— 


3 
REE 


S885 


Mmror 
RW 


CZRMOAO_RMOS/3/2 FCTNL 
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001522 
001404 


000002 
000022 


000200 


N 
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-SBTTL GET STATUS SUBROUTINE 


15 
19 





sTHIS SUBROUTINE SETS UP THE ‘'GET INDEX TABLE’’ AND THE ‘GET 
ING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE 
+ AND THEN RETURNS TO THE USER. 


BUFFER'' FOR READ 


: CALL: 


GETSTS: 


2$: 
3$: 


4$: 


JSR 
22? 


PC,GETSTS 


RO,=(SP) 


e 


#200, (RO)+ 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


PC 


RETURN HERE 


+ ¢PUSH RO ON STACK 


ISTE E 
sWRITE REGISTER INDEX IN TABLE 
CLEAR CORRESPONDING LOCATION 
;DECREMENT TO NEXT INDEX 
BRANCH OUT IF DONE 
[DONT WRITE RMDB INDEX 


WRITE TERMINATOR 

2sPOP STACK INTO R2 
3sPOP STACK INTO R1 
:POP STACK INTO RO 


SEQ 0195 





a a ed a ce cl cael il 
WOWONAUSWN—OOONAYL SW 


SS 


48 

49 04’ 

50 366 
51 044370 
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-SBTTL GET SUBROUTINE 


+ THIS Teen thee READS THE tein WHICH ARE LISTED IN THE 

3" GET X TABLE’' AND STORES THEIR VALUES IN THE CORRESPONDING 

SLOCATION IN THE "'GET REGISTER BUFFER'’. FOR EXAMPLE, 

ENTRY OF O° IN THE TABLE By io CAUSE THE SUBROUTINE TO 

‘READ "'RMBA’’ AND STORE ITS CONTENTS AT THE LOCATION IN 

; THE BUFFER ASSIGNED TO THAT REGISTER. a E NUMBER OF 

:REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 
ABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 

:uHICH SHOULD FOLLOW THE LAST ENTRY. 


 SUBROUT INE _CAL 
71) "GET INDEX TABLE’ HAS BEEN LOADED WITH REGISTER INDEX 
: VALUES AND TERMINATED WITH A CONTROL BYTE 


3 (2) "GET INPUT BUFFER’’ IS AVAILABLE FOR USE. (NOTE THAT 


: UNUSED LOCATIONS, I.£.,ENTRIES IN BUFFER CORRESPONDING 
: TO REGISTERS NOT READ, ARE NOT CHANGED.) 
7(3) JSR PC,GET 
; RETURN HERE IF NO ERROR FOUND 
: NOP RETURN HERE IF ANY ERROR FOUND 
: ERROR SUB DEFINES ERROR NUMBER 
[RO = REGISTER BASE ADDRESS 
[R1 = REGISTER ADDRESS 
:R2 = BUFFER BASE ADDRESS 
[R3 = BUFFER ADDRESS 
:R4 = POINTER TO REGISTER INDEX 
GET: 
ADD #4, (SP) ZCLEAR ERROR NUMBER IN USER'S 
CLRB = a SP TERROR CALL 
SUB #4, (SP) 
MOV RO,-(SP) ;PUSH RO ON STACK 
MOV R1,-(SP) PUSH R1 ON STACK 
MOV R2,-(SP) t:PUSH R2 ON STACK 
MOV R3,-( ;:PUSH R3 ON STACK 
MOV R4,-(SP) [PUSH R4 ON STACK 
MOV ERRVEC,-(SP) | :PUSH ERRVEC ON STAC 
MOV ERRVEC+2,=(SP) PUSH ERRVEC 2 ON STACK 
MOV $BASE RO 
MOV #GETBUF ,R2 
MOV AGETINX.R4 
MOV #5$, ERRVEC :SETUP FOR TIMEOUT 
MOV #PR6, ERRVEC+2 
1$ MOV - RMCS2(RO),$TMPO ; GET | NED‘: STATUS 
MOV RMCS1(RO).$TMP1 :GET ‘DVA'’ STATUS 
BIT #DVA,STMP1 :DEVICE AVAILABLE?? 
BNE 3$ “YES! ! 
ADD #4,16(SP) [WRITE ERROR NUMBER IN USER'S 
Move #ii2,a16(sp) TERROR CALL 
3$: TSTB — (R4) DONE ?? 


BMI 9$ sYES!: 
;R1_= REGISTER ADDRESS 


MOVB (R4) ,R1 
BIC #*CIDXMSK,R1 : CLEAR ANY SIGN EXTENSION 


SEQ 0196 


C 16 
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GET SUBROUTI SEQ 0197 
52 044374 060001 ADD RO,R1 
53 044376 112403 MOVB = (R4) +, R3 jR3 = STORAGE ADDRESS FOR REGISTER 
54 044400 042703 177700 BIC A*CIDXMSK,R3 CLEAR ANY SIGN EXTENSION 
55 044404 06020 ADD R2,R 
6 044406 011113 MOV (Ri), (R3) ;READ REGISTER 
27 044410 000764 BR 3$ 
59 044412 022626 5$: CMP (SP) +, (SP)+ :RESTORE STACK 
60 044414 062766 000004 000016 ADD #4, 16(SP) WRITE ERROR NUMBER IN 
61 044422 112776 000007 000016 MOVB #7.@16(SP) ZUSER® S ERROR CALL 
62 044430 162766 000002 000016 7%: SUB #2. 16(SP) 
63 044436 105714 8$: TSTB (R4) : DONE , CLEARING?? 
64 044440 100405 BMI 9$ ZYES 
65 044442 005003 CLR R3 ‘ChEAR REMAINING STORAGE 
66 044444 112403 MOVB = (R4)+,R3 S LOCATIONS 
67 044446 060203 ADD R2,R3 
68 044450 005013 CLR (R3) 
69 044452 000771 BR 8$ 
70 044454 9$: 
044454 012637 000006 MOV (SP) +, ERRVEC+2 sPOP STACK INTO ERRVEC+2 
044460 012637 000095 MOV (SP)+{ERRVEC POP STACK INTO ERRVEC 
4 012604 MOV (SP) +,R4 33POP STACK INTO R4& 
4 012603 MOV (SP) +.R3 ::POP STACK INTO R3 
044470 012602 MOV (SP) +,R2 ::POP STACK INTO R2 
044472 012601 MOV (SP)+,R1 3:POP STACK INTO R1 
044474 012600 MOV (SP) +.RO ::POP STACK INTO RO 


4 044476 000207 RTS PC 7RETURN 
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PUT S$ 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 : 
12 30) 
13 : 
14 3 (2) 
15 : 
16 3(3) 
17 : 
18 3 
19 : 
20 : 
21 : 
22 3RO 
23 :R1 
24 3R 
25 3R3 
26 iR 
27 
28 044500 000240 PUT 
29 044502 010046 
044504 010146 
044506 010246 
044510 010346 
044512 010446 
044514 013746 000004 
044520 013746 000006 
044524 013700 001276 
31 044530 012702 001410 
044534 012704 001551 
3 044540 012737 044650 000004 
044546 012737 000300 000006 
35 044554 016037 000010 001174 1$: 
044 016037 001176 
37 044570 032737 004000 001176 
38 044576 001007 
2766 000004 000016 
112776 000112 000016 
41 044614 oes 
42 044616 105714 3$: 
3 044620 100425 
044622 111401 
45 044624 042701 177700 
044630 1 
47 044632 111403 
044634 2703 177700 
49 044640 203 
50 044642 011311 
51 044644 105724 4$: 
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D 
E 


-SBTTL PUT SUBROUTINE 
¢ THIS ; fioee tae HRT THE REGISTERS WHICH ARE LISTED ine THE 


THE CONTENTS OF THE CORRESPONDIN 
A. HE NUMBER OF 


SREGISTERS WRITTEN IS VARIABLE; TABLE MUST 
BE TERMINATED WITH A CONTROL vie” (200) “WHICH SHOULD 
FOLLOW THE LAST ENTRY. 


SUBROUTINE CALL: 


"PUT INDEX TABLE’ HAS on LOADED WITH INDEX VALUES 
OF REGISTERS TO BE WRITTEN. 
"PUT REGISTER tt A schemata CONTENTS OF EACH 


REGISTER TO BE WR 
JSR PC,PUT 
RETURN HERE IF NO ERROR FOUND 
NOP RETURN HERE IF ANY ERROR FOUND 
ERROR SUB DEFINES ERROR NUMBER 


REGISTER BASE ADDRESS 
REGISTER ADDRESS 


BUFFER BASE ADDRESS 

BUFFER ADDRESS 

POINTER TO REGISTER INDEX 
NOP 
MOV RO,-(SP) 2 PUSH RO ON STACK 
MOV R1,-<SP) 3sPUSH R1 ON STACK 
MOV R2,-(SP) 3zPUSH R2 ON STACK 
MOV R3,~( lar + R3 ON STACK 


MOV ERRVEC ,-(SP) 
MOV ERRVEC#2, 27 (SP) 


7ZPUSK ERRVEC ON S 
+ =PUSH CRRVEC #2 ON STACK 


MOV $BAS 
MOV #PUTBUF ,R2 
MOV A#PUT 


SETUP FOR TIMEOUT 


3GET 'NED** STATUS 
GET ‘DVA’’ STATUS 
:DEVICE AVAILABLE ?? 


MPO 
MOV RMCS1(RO) . $TMP1 
BIT #DVA,STMP1 


BNE 
ADD #4,16(SP) :WRITE ERROR NUMBER IN 
Move #1i2,016(SP) ZUSER'S ERROR CALL 

TSTB —-_ (R4) DONE ?? 

BMI 9$ YES! ! 

MOVB = (R4) RI R1 = REGISTER ADDRESS 
BIC #*CIDXMSK,R1 = CLEAR ANY SIGN EXTENSION 
ADD RO,R1 

MO :R3 = STORAGE ADDRESS 


VB  (R4),R3 
BIC #°CIDXMSK,R3. «CLEAR ANY SIGN EXTENSION 


MOV (RS), (R1) ;WRITE REGISTER 
TSTB = (RG) + SADJUST REGISTER POINTER 


SEQ 0198 
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52 044646 
53 


000763 
022626 
062766 
112776 
162766 


012637 
012637 


000002 


000006 
000004 





E 16 
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6 
000016 7$: 
9$: 


3$ 

(SP) +, (SP)+ sADJUST STACK 
#4,16(SP) sWRITE ERROR NUMBER IN 
#7.a16(SP) USER'S ERROR CALL 
#2,16(SP) 

(SP) +, ERRVEC+2 POP STACK INTO ERRVEC+2 
(SP) +, ERRVEC ; POP STACK INTO ERRVEC 
(S : ¢POP STACK INTO R4 
(SP)+,R3 53 STACK INTO R3 
(SP)+,R2 ae STACK INTO R2 
(SP)+,R1 :sPOP STACK INTO R1 
(SP) +,RO 3 POP STACK INTO RO 

PC 7RETURN 


SEQ 0199 





CZRMOAQ RMOS/3/2 FCTNL 
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04 

044770 
044776 
045004 
045012 
04 
04 
04 


013746 


012637 
012637 
000207 


TST 3 


000004 
000006 
044766 
000300 
177546 
000100 
134532 
045020 
172540 
000104 
134500 
000002 


000006 
000004 


F 16- 
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000004 
000006 
001516 
001520 


000004 


000004 


-SBTTL SIZE CLOCK SUBROUTINE 


SIZCLK: 


1$: 


ERRVEC ,=(SP) 
ERRVECS2 “ei 


(SP)+, (SP)+ 
#2$, ERRVEC 
#172540, CLKADR 
#106 CLKVCT 
@CLKADR 


3$ 
(SP)+, (SP)+ 
#2,4(SP) 


(SP) +, ERRVEC+2 
ME cai 


3 =PUSH ERRVEC . STACK 
Hg py ON STACK 
:SET UP FOR BUS TIMEOU 


LOAD ADDRESSES FOR KW11=L 


TEST FOR KW11-L PRESENT 

YES = KW11-L IS PRESENT 
RESTORE SP 

:SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KW11-P CLOCK 


TEST FOR KW11-P PRESENT 
YES = KW11-P IS PRESENT 
SRESTORE SP 

sMOVE RETURN TO ERROR 


POP STACK INTO ERRVEC+2 


37POP sTACK INTO ERRVEC 
RETURN TO USER 


SEQ 0200 


G 16 
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SEQ 0201 


1 .SBTTL TIMEOUT SUBROUTINE 
3 ;THIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT 
4 ZGREATER THAN APPROX. 500 MSEC AND THEN RETURNS, 
é SCALL: JSR PC, TIMOUT 
z ; 22? RETURN HERE 
9 045042 TIMOUT : 
045042 010046 MoV _—-RO, =(SP) ; PUSH RO ON STACK 
045044 010146 MOV R1.-(SP) : PUSH R1 ON STACK 
5046 010246 MOV —R2. = (SP) PUSH R2 ON STACK ; 
045050 013746 000004 MOV ERRVEC,=(SP) PUSH ERRVEC ON STACK 
045054 013746 000006 MOV —-ERRVEC +2, =(SP) :;PUSH ERRVEC+2 ON STACK 
10 045060 012737 045162 000004 MOV #4$, ERRVEC ;SETUP FOR BUS TIMEOUT - 04 TRAP 
11 045066 012737 000300 000006 MOV —- #PR6, ERRVEC +2 
12 045074 013700 001276 MOV —«- $BASE,RO ;RO=BASE ADDRESS 
13 045100 013701 001516 MOV CLKADR ,R1 sRI= =CLOCK ADDRESS 
14 045104 012702 000036 MOV #30. ;RE-NUMBER OF CLOCK CYCLES 
15 045110 020127 172540 1$: CMP ss R1..#172540 :KW11=P CLOCK?? 
16 045114 001003 BNE 2$ ZNO! ! 
17 045116 012761 000001 000002 MOV —s #121) SET COUNTER 
18 045124 012711 000005 2$: MOV = #BIT2!BITO.(R1) START COUNTER 
20 045130 016046 000000 3$: MOV _—RMCS1(RO),-(SP) ;GET STATUS 
21 045134 042716 177576 BIC —- #*C<RDY!GO>, (SP) 
22 045140 022726 000200 (MP ss #RDY, (SP) + :RDY=1 ,G0=0?? 
23 045144 001420 BEQ SYES!! 
24 045146 032711 000200 BIT  #BIT7,(R1) :TIMER DONE ?? 
25 045152 0017 BEQ (3S ZNO! ! 
26 045154 005302 DEC —_ R2 :DEC NUMBER OF CYCLES 
27 045156 001354 BNE  1$ ONTINUE IF NOT _ DONE 
28 0451 12 BR 5$ RD DID NOT SET OR ‘'GO’’ DID NOT RESET 
WITHIN 500m MSEC AFTER THE COMMAND WAS ISSUED. 
30 045162 022626 4$: CMP (SP)+, (SP)+ S ADJUST TACK 
31 045164 062766 000004 000012 ADD #4,12(SP) :MOVE tp TO USER'S CALL 
32 045172 112776 000007 000012 MOVB #712 SP) “WRITE ERROR NUMBER 
$3 045200 162766 000002 000012 SUB ss: #2. 12 (SP) 
35 045206 5$: 
045206 012637 000006 MOV —- (SP) +, ERRVEC +2 ;POP STACK INTO ERRVEC+2 
045212 012637 000004 MOV (SP)+<ERRVEC  ;:POP STACK INTO ERRVEC 
045216 012602 MOV (SP) +. R2 POP STACK INTO R2 
045220 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
045222 012600 Vv (SP) +5 RO SIPOP STACK INTO RO 
36 045224 000207 RTS PC ;RETURN TO USER 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 
2 


— So a ss SS 


mMmron 


23 


48 045250 


062716 
105076 
162716 
013737 
042737 

013737 


042737 
123737 


000002 
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sTHE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
; THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
; FOLLOWING CHECKS ARE MADE: 


CORRECT UNIT IS SELECTED, I.€., THE UNIT SELECT BITS OF RMCS2 
: (BITS 0-2) EQUAL THE UNIT BEING TESTED: 


«SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET 
"AND NED (BIT 12 OF RMCS2) IS RESET; 


COMMAND WAS COMPLETED, I.E£., THE MASSBUS CONTROLLER 7 


AST 
TREADY ‘alt 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
; DRIVE READY BIT (BIT 7 OF RMDS) IS SET, 


i1.E., 
“1LE., 


| 
MCP. 


PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 


-NO PARITY ERROR bees WHEN WRITING REMOTE REGISTERS, 


PAR = 0, 


OR, PAR 


; THE SUBROUTINE ASSUMES THAT: 
.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER, 


TIN PARTICULAR, 


RMCS1, RMCS2 AND RMD. HAVE BEEN STORED IN THEIR 


: CORRE SPOND ING LOCATIONS OF THE ''GE; * BUFFER. 
-(SUNIT) CONTAINS THE DRIVE NUMBER 
>THE SUBROUTINE IS CALLED AS FOLLOWS: 


(1) 


PRIERR: 


CLEAR USER'S ERROR CALL 
ADD #4, (SP) 


REPORT 


JSR 
BR 


CLRB 
SUB 


PC,PRIERR 
7??? RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 


ER SUB 
PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


:MOVE (SP) TO por CALL 
a(SP) CLEAR ERROR NUMBER 
#4, (SP) ;MOVE (SP) TO NO ERROR RETURN 


AN ERROR IF THE WRONG UNIT IS SELECTED 
MOV RMCS2 


I,$BDDAT _;CORRECT UNIT SELECTED?? 
#*CUNTMSK ,SBDDAT™ 
SUNIT,SGDDAT :GOOD DATA FOR TYPEOUT 
#*CUNTMSK , SGDDAT 
SGDDAT,$BDDAT ;COMPARE EXPECTED AND RECEIVED 
: IVE NUMBERS 


#4, (SP) 

#1 ,a(SP) zERROR 1 

#2, (SP) ;MOVE SP TO RETURN FOR ERROR 
PC,a(SP)+ REPORT WRONG UNIT SELECTED 





SEQ 0202 
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58 045322 162716 000010 
00024 
000137 046050 


334 032737 004000 
001045 


2) 

N 
RRRR 
Vi 
vw 

> 

N 


RWV=SSRIEGRELLESSLKIF 
So 
— 
Ww 
a 
N 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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001334 
001149 


18: 


SUB #10, (SP) 
NOP 
JMP 10$ 


sRESTORE (SP) 
SKIP OTHER CHECKS 


;REPORT AN ERROR IF itt Pe. IS NOT AVAILABLE OR IF 
3 THE pauls IS NONEXI 


2$: 


5$: 
;REPORT 


7$: 
;REPORT 


PVA, RMCSI I 


MOV RMCS11,$GDDAT 
BIS ADVA, $GDDAT 
MOV RMCS1I SBDDAT 
ADD #4, (SPS 

MOVB #2.a(SP) 

BIT #NED.RMCS21 


MOV RMCS21 , $GDDAT 
MOV RMCS21, $BDDAT 


UB 2° (SP 
JSR PC. a(SP)+ 
SUB #10, (SP) 


NOP 

BR 10$ 

BIT 

BNE 7$ 

MOV RMCS11,$GDDAT 
BIS ARDY AT 


vest’ AVAILABLE ?? 
EXPECTED STATUS 


sRECEIVED STATUS 


sERROR #2 

MAS NED SET?? 
EXPECTED STATUS 
RECEIVED STATUS 


:YES = CHANGE ERROR NUMBER 
sMOVE SP TO RETURN FOR ERROR 
sREPORT DEVICE NOT AVAILABLE 
sRESTORE (SP) 


SKIP OTHER CHECKS 


AN ERROR IF MASSBUS CONTROLLER IS NOT READY 
ARDY ,RMCS11 


ae READY?? 
‘EXPECTED STATUS 


,$GDD 
BIC #SC TRE ‘MCPE GO, SGDDAT 


prgg 21 F gSBOOns 
(SP) 


JSR PC. a(SP)+ 
SUB #10, (SP) 
NOP 


RECEIVED STATUS 


;ERROR # 


a4 
MOVE SP TO RETURN FOR ERROR 
:REPORT ree NOT READY 
sRESTORE (SP) 


SKIP OTHER CHECKS 


AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE 
BIT #G0,RMCS1I O RESET?? 


sVES! : 
‘vest READY ?? 


SEXPECTED STATUS 
;RECEIVED STATUS 


sERROR #5 


MOVE SP_ TO RETURN FOR ERROR 


BR 10S 
I 7 

BEQ 

BIT #DRY,RMDSI 

BNE 8$ 

MOV RMCS11 . $GDDAT 

BIC #SC!TRe 'MCPE 'GO, $GDDAT 

MOV RMCS11,$BDDAT 

ADD #4, (SP) 

MOVB #5.a(SP) 

SUB #2. (SP) 

JSR PC; a(SP)+ 

SUB #10, (SP) 





; REPORT wi hs NOT READY 
RESTORE (SP) 


SEQ 0203 
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001334 


001350 
001376 
001424 


BR 10$ 
8$: 


REPORT AN ERROR IF THE RH in ae DETECTED BAD 


sPARITY th THE MASSBUS CON 


:PARITY ERROR ?? 
“EXPECTED STATUS 


$GDDAT 


RECEIVED STATUS 
;MOVE STACK TO USER'S ERROR 
RROR #13 


[MOVE SP TO RETURN FOR ERROR 
SREPORT ERROR VIA USER 
TRESTORE STACK 


;REPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR 
BIT PAR ,RMER11 


IT AMCPE ,RMCS11 
BEQ 9$ 
MOV RMCS11,$GDDAT 
BIC #SC! TRE 'MCPE !GO, 
MOV RMCS1I $BDDAT 
ADD (SP5 
MOVB a5. a(SP) 
SUB #2, (SP) 
JSR PC, a(SP)+ 

SUB #10, (SP) 
NOP 
BR 10$ 

9$: 

I AR 
BEQ 11$ 
BIT ADPE ,RMER21 
BNE 11$ 
BIT #PAR,.RMER10 
EQ 93$ 
MOV RO,-(SP) 


91$: CMPB ARMER1 , (RO) 


BR 
92$: TSTB 


93$: MOV RMER11 , $GDDAT 


BIC #PAR, $GDDAT 
MOV RMER11, $BDDAT 
ADD (SP5 
MOVB #50,a(SP) 
SUB (SP) 
JSR PC a(SP)+ 
SUB #10, (SP) 
NOP 
10$: ADD #10, (SP) 
11$: NOP 


PC 


eNOr! THERE A PARITY ERROR?? 
WAS IT THE CONTROL BUS?? 
NOT SURE! ! 

:DID TEST SET PAR ?? 

"NO! ! 


+:PUSH RO ON STACK 
‘RO POINTS TO INDEX TABLE 
SSEARCH TABLE FOR RMER1 


;:POP STACK INTO RO 
;PAR WAS SET BY TEST 
ZEND \OF TABLE?? 

pr pats STACK INTO RO 
ZEXPECTED STATUS 


RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 
:WRITE THE ERROR NUMBER 

MOVE T. TO RETURN FOR ERROR 
REPORT THE ERROR 

;MOVE SP TO NO ERROR RETURN 


RETURN TO ERROR 


RETURN TO NO ERROR 


SEQ 0204 


Tan acl oes aan 
WN" SCVODNAUSWN ODO ONAUSWR a 


24 046060 


55 046214 
56 046220 
57 046224 





013737 
042737 
062716 
105076 
162716 


032737 
00 
013737 
04 


119976 
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051 
051 


NN 


— 
aS 


6 
5 





-SBTTL SECONDARY ERROR CHECK SUBROUTINE 


sTHE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
:SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
SERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 

ASSOCIATED WITH THE OPERATION BEING PERFORMED. 

; WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 

O THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 

;TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUT INE 
MAKES THE ERROR a IT Seat tet TO THE SUBROUTINE WHICH THEN LOOKS FOR 
: OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


; SCALL: : JSR PC,SECERR 

: BR rT? RETURN HERE IF NO ERROR 

: NOP RETURN HERE TO REPORT AN ERROR 

: ERROR ERROR NUMBER DEFINED BY SUB 

: JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ee CHECKS 
: v?? RETURN HERE IF NO MORE ERROR 


sNOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
: INPUT REGISTER BUFFER. 


SECERR: 


SERRE EKER 


: STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 
MOV RMCS10,515$ STORE FUNCTION CODE 
BIC WACCFOTFIIFQ!F3!F4>,515$ 
ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
EAR ERROR NUMB 


a(SP) 7CL ER 
#4, (SP) ;MOVE (SP) TO NO ERROR RETURN 


FREAK 


CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 


sREPORT ERROR IF DRIVE IS NOT READY, I.E., IF DRY = 0 
ADRY ,RMDSI :DRIVE READY ?? 


MOV RMDSI , $BDDAT BAD DATA FOR TYPEOUT 


BIC #*CDRY, SBDDAT 
MOV #DRY SGDDAT :GOOD DATA FOR TYPEOUT 


ADD 
MOVB a16. aC SP) ZERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 


JSR PC ,a(SP)+ 


:REPORT NOT READY 
SUB #10, (SP) 
NOP 


;RESTORE (SP) TO ERROR N 
-REPORT ERROR IF GO BIT IS NOT RESET 
S$: BIT #GO,RMCS1I :G0 BIT RESET?? 

BEQ 10$ YES! ! 

MOV RMCS11,$B8DDAT  :BAD BATA FOR TYPEOUT 

BIC #*CGO, $BDDAT 

:GOOD DATA FOR TYPEOUT 

;ERROR NUMBER 


SP) 
#if saCeP) 


SEQ 0205 


16 
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SECONDARY ERROR CHECK SUBROUTINE SEQ 0206 
58 046232 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
59 046236 004736 JSR PC a(SP)+ SREPORT DEVICE NOT AVAILABLE 
60 046240 162716 000010 SUB #10, (SP) :RESTORE (SP) 

61 046244 000240 NOP 
sREPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 
046246 013737 001334 001142 10$: MoV RMCS1I1,$BDDAT ;1S FUNCTION CODE CORRECT?? 
65 046254 042737 177701 001142 BIC #°C76, $BDDAT 
66 046262 013737 051714 001140 MOV 515$, $GDDAT :EXPECTED FUNCTION CODE 
67 046270 023737 001142 001140 CMP SBDDAT , $GDDAT 
68 04627 141 BEQ 15$ sYES!! 
69 046300 062716 000004 ADD #4, (SP) 
70 046 112776 000012 000000 MOVB = #12, a(SP) sERROR NUMBER 
71 046312 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
72 04631 7 JSR PC a(SP)+ ‘REPORT WRONG FUNCTION CODE 
73 046320 162716 000010 SUB #10, (SP) sRESTORE (SP) 
74 046324 24 NOP 
75 046326 15$: 
76 ;REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
77 TERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND 
78 TOTHER ERRORS ARE SET 
79 046326 005037 001140 CLR $GDDAT ZEXPECT ‘ERR’ = 0 
046332 005737 001350 TST RMER1I [1S RMER1 = 0?? 
81 046336 001003 BNE 20$ NO! ! 
046340 005737 001376 TST RMER2] SIS RMERZ = 0?? 
83 046344 001403 BEQ 25$ YES! ! 
046346 052737 040000 001140 20$: BIS HERR, SGDDAT :"'ERR’' SOULD BE SET 
85 046354 013737 001346 001142 25$: MOV RMDSI , $BDDAT 
046362 042737 137777 001142 BIC #*CERR, $BDDAT 
87 046370 023737 001140 001142 CMP SGDDAT.$BDDAT IS ‘ERR’ OK?? 
046376 00141 BEQ 30$ YES! ! 
89 046400 062716 000004 ADD #4, (SP) [MOVE SP TO USER'S ERROR 
046404 112776 000047 000000 MOVB #47,a(SP) [WRITE ERROR NUMBER 
91 046412 162716 000002 SUB #2, (SP) SMOVE SP TO ERROR RETURN 
92 046416 736 JSR PC. a(SP)+ [REPORT INVALID COMP ERROR 
gs 046420 162716 000010 SUB #10, (SP) 
95 ;REPORT AN ERROR IF "‘TRE'' IS SET AND NONE OF THE BITS WHICH SET 
96 7TRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 
97 “SET TRE IS SET 
98 046424 005037 001140 30$: CLR SGDDAT ZEXPECT "'TRE'' = 0 
99 046430 013746 00134 MOV RMCS2I1,-(SP)  :WAS DLT, WCE, UPE, NED, NEM 
100 046434 042726 000377 BIC #377, (SP)+ ‘PGE, MXF OR MDPE SET 
101 046440 001010 BNE 35$ YES! ! 
102 046442 032737 040000 001346 BIT #ERR,RMDSI [WAS EXCEPTION RECEIVED?? 
103 046450 001407 BEQ NO! ! 
104 046452 022737 000030 051714 CMP #SEARCH,515$  :WAS DATA TRANSFERRED?? 
105 046460 103003 BHIS  40$ NO! ! 
106 046462 052737 04 001140 35$: BIS ATRE .SGDDAT :''TRE'’ SHOULD BE SET 
107 046470 013737 001334 001142 40$: MoV RMCS1I1,$BDDAT BAD DATA FOR TYPEOUT 
108 046476 042737 137777 001142 BIC #°CTRE. $BDDAT 
109 046504 023737 001140 001142 CMP SGDDAT.$BDDAT 1S ‘TRE’ OK?? 
110 046512 001413 BEQ 45$ tYES!! 
111 046514 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
112 046520 112776 000014 000000 MOVB #14,a(SP) [WRITE ERROR R 
113 046526 162716 000002 SUB #2, (SP [MOVE SP TO RETURN FOR ERROR 
114 046532 736 JSR PC. a(SP)+ SREPORT TRE ERROR 
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Sssss 
——) —2 —2 — 
— — —) 2) 
SARRARAK 
MNNMCO 


001142 


SUB #10, (SP) sRESTORE (SP) 
NOP 


45$: 


SAAR EEEEREEAEERRRAEEREKAEERRAEKEEREERERREHEKEHEEER 


:USING ae A YA CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 


[NOTE THAT SOME ERROR IONAL ON THE 
‘STATUS CONDITIONS, WRITE LOCK ERROR SHOULD ONLY BE SET IF 
[WRITE LOCK IS ON in S Fn COMMAND IS A WRITE. 


zGET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 
MOV RO,-(SP) 7zPUSH RO ON STACK 
“MOV 515$,RO GET FUNCTION CODE 
MOV FNCDTB(RO),500$ :STORE ENTRY 
MOV (SP) +,RO ::POP STACK INTO RO 


REPORT AN ERROR IF AN ry gd ATTENTION OCCURRED OR IF 


sATA IS NOT SET AND SHOULD 
MOV. 4: EXPECTED ATA STATUS 


500$.,$GDDAT 
BIT #ERR.RMDSI 7IS COMPOSITE ERROR SET ?? 


BEQ 
BIS HATA, $GDDAT ‘EKPECT AN_ATTENTION 
50$: BIC #*CATA,$GDDAT ;STRIP DONT CARES 


RMDSI , SBDDAT GET RECEIVED ATA 
BIC #*CATA,SBDDAT =; ST os DONT Dees 
CMP SGDDAT,$SBDDAT 1S ATA OK ? 


BEQ Ly ives" if 
ADD 4, (SP) MOVE SP TO USERS ERROR CALi 
MOVB *6. a(SP) ;LOAD ERROR # IN CALL 
SUB #2, (SP) :MOVE - TO ERROR RETURN 
JSR PC a(sP)+ T ERROR 

RESTORE SP 


SUB #10, (SP) 
NOP 
55$: 
REPORT ERROR IF ILF IS INCORRECT, I.€., IF ILF DOES NOT COMPARE 
[WITH FUNCTION CODE TABLE 
- MOV 500$, $GDDAT :GET EXPECTED ILF 
BIC #ACILF ,SGDDAT 
MOV L 
TCLEAR ALL OTHER BITS 
CMP SGDDAT. $BDDAT :1S ILF OK ? 


BEQ 60S Yes !! 

ADD [MOVE SP TO USERS ERROR CALL 
MOVB 9384 aCSP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 
JSR PC. a(SP)+ [REPORT ERROR AND RETURN 
SUB #10, (SP) [MOVE SP ERR 


0 NO OR 
60$: CLR SGDDAT : CLEAR EXPECTED STATUS 


sREPORT AN ERROR IF WCE 5S SET AND SHOULD NOT BE SET 
MOV $,-(SP) 2GE 4 WCE STATUS ENABLE 
BIS #ACWCE , (SP) 


T ALL OTHER BITS 
MOV RMCS21 , SBDDAT 


“RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR WCE IF ENABLED 


we 


SEQ 0207 | 


—— 


om ] 
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172 046776 001412 

173 047000 062716 000004 
174 047004 112776 000026 
175 047012 762716 000002 
176 047016 004736 

177 047020 162716 090010 
178 047024 

179 

180 

181 047024 013746 

182 047030 052716 157777 
183 047034 013737 001350 
184 047042 2637 001142 
185 047046 001412 

186 047050 062716 000004 
187 047054 112 000164 
‘188 047062 162716 000002 
189 047066 

190 047070 162716 000010 
191 047074 

192 

193 

194 

195 047074 013746 051706 
196 047100 032737 

197 047106 001402 

198 047110 042716 

199 047114 052716 167777 
200 047120 013737 

201 047126 042637 001142 
202 poles 001412 

204 047140 112776 000165 
205 047146 162716 

206 047152 004736 

207 047154 162716 000010 
208 047160 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 047160 012746 177777 
221 047164 032737 004000 
222 047172 001404 

223 047174 032737 004000 
224 047202 

225 047204 042716 004000 


71 
226 047210 013737 001 
227 047216 042637 00114 
228 047222 001412 


- 
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a 


BEQ 90$ :BRANCH IF WCE OK 
ADD #4, (SP) ZMOVE SP TO USER'S ERROR CALL 
000000 MOVB #26,a(SP) ZWRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 
JSR PC a(SP)+ [REPORT ERROR 
SUB #10, (SP) TRESTORE ERROR 
90$: 
;REPORT ERROR IF OPI STATUS 1S SET AND SHOULD NOT BE SET 
MOV = (SP) :GET OPI STATUS ENABLE 
BIS #*COPI, (SP) ZSET ALL OTHER BITS 
001142 MOV RMER11,$BDDAT  :GET RECEIVED STATUS 
BIC (SP) +, $BDDAT ; CLEAR OPI IF ENABLED 
BEQ 100$ (CH IF OPI Ok 
ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
000000 MOVB #164,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC. a(SP)+ SREPORT ERROR 
#10, (SP) RESTORE SP 
100$: 
;REPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC IS 
:SET AND VV IS NOT RESET 
MOV $,-(SP) GET, IVC STATUS ENABLE 
001346 BIT #VVRMDSI [1S W SET 
BEQ 105$ NO! 
BIC #IVC, (SP) He - IVC SHOULD BE 0 
105$: BIS #*CIVC, (SP) :SET ALL OTHER BITS 
001142 MOV RMER2I,SBDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR IVC IF ENABLED 
BEQ 110$ ‘BRANCH IF IVC OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB #165,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC. a(SP)+ [REPORT ERROR 
SUB #10, (SP) [RESTORE SP TO NO ERROR 
110$: 
;BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
> ALL WRITE ERRORS, I.E., 
: RMER1 - WLE, WCF 
3 RMER2 = DPE 


RMCS2 = UPE. 
EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
WRITE ERROR ENABLE BIT IS RESET. 


sREPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 
3 THE o> * IS NOT fe yt A ne 


#~1 ;ASSUME WRITE ERRORS ENABLED 
051706 a MLE . 5008 ae WRITE ERRORS ENABLED ?? 
001346 BIT MWRL ,RMDSI :IS THE DRIVE WRITE PROTECTED ?? 
5$ a 120$ . :YES ! 


115$: MILE, (SP) “RESET WLE ENABLE 

001142 120$: MOV RMERII,$BDDAT GET RECEIVED STATUS 
BIC (SP)+,$BDDAT | :CLEAR WLE IF ENABLED 
BE 125$ SBRANCH IF WLE OK 


SEQ 0208 


om 
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229 047224 062716 000004 
230 047230 112776 000023 
231 047236 162716 000002 


235 047244 162716 000010 


236 

237 047250 012746 177777 
238 047254 004000 
239 04 


6 000040 
241 047270 013737 001350 
37 001142 
244 04 000004 
245 047310 112776 000025 
000002 
247 04 004736 
248 047324 162716 000010 
249 047330 


251 

252 047330 012746 177777 

253 047334 032737 004000 
04 001002 


062716 
275 047450 112776 000024 
276 047456 162716 2 
047 004736 
047 162716 000010 
279 047470 
282 047470 013746 051706 
283 047474 052716 175777 
284 047500 013737 001350 
285 047506 001142 





D1 
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000000 


051706 


001142 


000000 


051706 


001142 


000000 


091142 


125$: 
;REPORT 


130$: 


135$: 


ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVE #25, a(SP) [WRITE ERROR NUMBER IN CALL 


UB 
JSR PC “atsP D4 


REPORT ERROR 
SUB #10, (SP) RESTORE SP TO NO ERROR 


ERROR IF WCF IS SET AND WRITE ERRORS ARE NOT ENABLED 
MOV #~1,-(SP) ZASSUME WRITE ERRORS ENABLED 
BIT MLE , 500$ ZARE WRITE ERRORS ENABLED ?? 
BNE 130$ SYES !! 

Ic F, (SP) ‘DISABLE WCF ERROR 
MOV RMER11 , SBDDAT 3GET RECEIVED STATUS 

IC (SP)+,$BDDAT § :RESET WCF IF ENABLED 
BEG 135$ [BRANCH IF WCF OK 
ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
MovB «#25. a SP) [WRITE ERROR NUMBER IN CALL 
SUB > #2,(SP) ‘MOVE SP TO ERROR RETURN 


JSR PC,a(SP)+ 


[REPORT ERROR 
SUB #10, (SP) RESTORE SP TO NO ERROR 


;REPORT | IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 


140$: 


145$: 


zREPORT 


150$: 


155$: 
REPORT 


#-1,-(SP) ASSUME WRITE ERRORS ARE ENABLED 


BIT MILE, 500$ ZARE WRITE ERRORS ENABLED 7? 
BNE 140$ YES ! 

BIC #DPE, (SP) SRESET DPE ENABLE 

MOV RMER21 , SBDDAT :GET RECEIVED STATUS 

BIC (SP)+,$BDDAT | :RESET DPE IF ENABLED 

BEQ 1458 CH IF DPE Ok 

ADD SP) “MOVE SP TO USERS ERROR CALL 
MOVB ab a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE  § SP TO ERROR RETURN 


JSR PC,a(SP)+ 
UB 


T ERROR 
#10, (SP) ‘RESTORE SP TO NO ERROR 


AN _— IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
MOV 2~(SP) ASSUME WRITE ERRORS ARE ae 
ol wal £5008 ZARE | WRITE ERRORS ENABLED ? 


‘DISABLE UPE ERROR 
MOV RMCS21,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT § :RESET UPE IF ENABLED 
BEG 155$ [BRANCH IF UPE OK 
ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVB #24, a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2,¢ [MOVE SP TO ERROR RETURN 


SP) 
JSR PC wit 


SUB #10, ( “MOVE SP TO NO ERROR 


AN ERROR IF IAE IS SET AND IS NOT ENABLED 
MOV ) GET IAE E 


.~ : ENABL 
BIS #*CIAE , (SP) :SET ALL _OTHER BITS 
:GET RECEIVED STATUS 
:CLEAR IAE IF ENABLED 


MO 
BIC (SP)+, $BDDAT 


SEQ 0209 


. 
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286 047512 001412 BEQ 1608 BRANCH IF IAE IS 0K 

287 047514 062716 000004 ADD 4, (SP) :MOVE SP TO USERS ERROR CALL 
047520 112776 000166 000000 MOVB rie. a(sP) TE ERROR NUMBER 

289 047526 162716 000002 SUB #2, (SP) ‘MOVE SP TO ERROR RETURN 

290 047532 004736 JSR PC a(sP)+ SREPORT ERROR AND RETURN 

291 047534 162716 000010 SUB #10, ( :MOVE SP TO NO ERROR 

330 047540 160$: 

29% :B1T 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 

295 ; ALL READ/WRITE ERRORS, I.E, 

296 ; RMCS1 = TR 

297 ; RMCS2 = DLT,NEM,MXF 

298 : RMDS = LBT 

299 : RMER1 = AOE 

300 ;NOTE: 

301 LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 

af : CYLINDER REGISTER IS WRITTEN 

304 : AOE CANNOT BE SET IF LBT IS NOT ALSO SET 

4 3 TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 

308 

309 ;REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 

310 047540 012746 177777 MOV #~1,-(SP) yASSUME ERRORS ARE ENABLED 

311 047544 032737 001000 051706 BIT HACE , 5008 ZARE ERRORS ENABLED ?? 

312 047552 001002 BNE 165$ “YES ! 

313 047554 042716 100000 IC #DLT, (S [RESET DLT ENABLE 

314 047560 013737 001344 001142 165$: MO RMCS21,$BDDAT :GET RECEIVED STATUS 

315 047 042637 001142 IC (SP) +, $BD ; CLEAR DLT IF ENABLED 

316 047572 001412 BEG 170$ CH IF DLT IS OK 

317 047574 716 000004 ADD #4, (SP) MOVE SP TO USERS ERROR CALL 

318 047 112776 000032 000000 MOVB #32, a(SP) [WRITE L 

319 047 62716 000002 SUB 2,(S [MOVE SP TO ERROR RETURN 

320 047612 736 JSR PC. a(SP)+ SREPORT ERROR AND RETURN 

321 047614 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 

322 7 170$: 

334 ;REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 

325 0471 012746 177777 MOV #-1,-(SP) ZASSUME ERRORS ARE ENABLED 

326 047624 032737 001000 051706 BIT HACE , 500$ TARE ERRORS ENABLED 

327 047 001002 BNE 175$ sYES :! 

328 047634 042716 BIC #NEM, (SP) [DISABLE NEM 

329 047 013737 001344 001142 175$: MOV RMCS21,$BDDAT :GET RECEIVED STATUS 

330 047646 042637 001142 BIC (SP)+,$BDDAT | :CLEAR NEM IF ENABLED 

331 047652 001412 BEG 180$ [BRANCH IF NEM IS OK 

332 047654 062716 000004 ADD #4, (SP) ;MOVE SP TO USERS ERROR CALL 

333 047660 112776 000167 000000 MOVB #167,a(SP) WRITE ERROR NUMBER IN CALL 

334 047666 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 

335 047672 004736 JSR PC. a(SP)+ ‘REPORT ERROR AND RETURN 

336 047674 162716 000010 UB #10, (SP) ‘MOVE SP TO NO ERROR 

337 047700 180$: 

339 ;REPORT ERROR IF me IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 

340 047700 012746 177777 MOV #~-1,-(SP) ASSUME ERRORS ARE ENABLED 

341 047704 032737 001000 051706 BIT HACE , 500 SARE DATA ERRORS ENABLED ?? 

342 047712 001002 BNE 185$- YES ! 


ee eee ee eee ee 





CZRMOAO ag fot FCTNL TST 3 
SUBROUT I 


SECONDAR ROR CHECK 
343 047714 042716 
344 04 013737 001344 
345 067726 042637 001142 
346 047 001412 


7 000004 
348 047740 11,2776 000033 
349 0477 000002 
351 0477 162716 000010 
352 047760 
353 
354: 

355 047760 012746 177777 
3 001000 
357 04 001404 
358 047774 032737 002000 
001002 
360 0 042 001000 
361 050010 013737 001350 
362 050016 042637 001142 
364 0 06 000004 
365 050030 112776 000020 
366 0500. 000002 


162716 000010 


377 050050 032737 002000 
378 050056 001403 
379 050060 042737 000200 


050066 012746 177777 
0072 032737 000200 

001 one 
042716 000400 
013737 001350 
042637 001142 

0120 001412 
22 062716 000004 
112776 000035 
162716 000002 


394 050142 162716 000010 
44 050146 


397 
398 050146 012746 177777 
399 050152 032737 000200, 





ei 
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BIC #MXF (SP) ;DISABLE MXF ERROR 
001142 185$: MOV RMCS21,$BDDAT  :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT § :CLEAR MXF IF ENABLED 
BEQ 190$ ‘BRANCH IF MXF IS OK 


ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
000000 MOVB #33,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
: JSR PC a(sP)+ [REPORT ERROR AND RETURN 
SUB #10, ( [MOVE SP TO NO ERROR 
190$: 
:REPORT ERROR IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED 
MOV #~1,-(SP) sASSUME DATA ERRORS ARE ENABLED 
051706 BIT #A0k ,500$ GARE DATA ERRORS EANBLED ?? 
001346 BIT #LBT.RMDSI :I1S LBT ALSO SET ?? 
BNE 195$ TYES |! 
191$: BIC HACE, (SP) [DISABLE AOE 
001142 195$: MOV RMER1I , SBDDAT GET RECEIVED STATUS 
BIC (SP)+,$BDDAT CLEAR AOE IF ENABLED 
BEQ 2008 CH IF AOE IS OK 
ADD “MOVE SP TO USERS ERROR CALL 
000000 MOVB 430. SSP) [WRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 
JSR PC. a(SP)+ SREPORT ERROR AND RETURN 
#10, (SP) ‘MOVE SP TO NO ERROR 
200$: 
:BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
THEADER ERROR 
; RMER1 — HCRC.HCE,FER 
; RMER2 - BSE 
;RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 
001366 BIT #HC1,RMOF I 21S HCI SET 
BEQ 2018 
051706 oe BIC #HCE , 500$ [YES = DISABLE ALL HEADER ERRORS 


sREPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) zASSUME ERRORS ENABLED 
051706 BIT onic 2008 ZARE | HEADER ERRORS ENABLED ?? 


BIC #HCRC, (SP) DISABLE H HCRC 
001142 205$: MOV RMER1I,$BDDAT :GET RECEIVED STATUS 
BIC (SP)+,$BDDAT :RESET HCRC IF ENABLED 


BEQ 2108 [BRANCH IF HCRC IS OK 

ADD (SP) :MOVE SP TO USERS ERROR CALL 
000000 MOVB 438 a(SP) [WRITE ERROR NUMBER IN CALL 

SUB #2, (SP) [MOVE SP TO ERROR RETURN 

JSR PC. a(SP)+ [REPORT ERROR AND RETURN 

SUB #10, (SP) sMOVE SP TO NO ERROR 


2108: 


REPORT ERROR IF HCE is SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #~1,-(SP) ZASSUME ERRORS ENABLED 
051706 BIT wace, 500$ ARE ERRORS ENABLED ?? 


SEQ 0211 


AM 


0160 
40. 66 
403 050174 
404 050200 
405 050202 
406 050206 
407 050214 
408 050220 
409 050222 
rep | 050226 


412 
413 050226 


050366 


456 050414 


CHECK 


004 
162716 


012746 
FOL 


004 
162716 


012746 
032737 
00 


004 
162716 


012746 
paras 


CZRMOAO &M05/3/2 FCTNL TST 3 


SECONDARY ERROR SUBROUT INE 


177777 
000200 
000020 
001350 
001142 
000004 
000037 
000002 
000010 
177777 
000200 
100000 
001376 
001142 
000004 
000354 
000002 


000010 


177777 
000100 
00 
001344 
001142 





G 1 
MACRO VO3.01 11-APR-80 13:39:53 PAGE 25-7 


001142 


000000 


051706 


001142 


000000 


051706 


001142 


BNE 215$ rYES !! 
BIC #HCE, (SP) [DISABLE HCE 

215$: MOV RMERII,$BDDAT GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR HCE IF ENABLED 
BEQ 2208 ‘BRANCH IF HCE IS OK 
ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 
MOVB #36,a(SP) ;WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO ERROR RETURN 
JSR PC asp) [REPORT ERROR AND RETURN 
SUB #10, ( :MOVE SP TO NO ERROR 

2208: 

;REPORT ERROR IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) :ASSUME FER IS ENABLED 
BIT #HCE , 500$ TARE HEADER ERRORS ENABLED ?? 
BNE 225$ “YES !! 


BIC #FER, (SP) DISABLE FER 
225$: MOV RMERII,SBDDAT  ;GET RECEIVED STATUS 
BIC (SP) +, $BDDAT sRESET FER cima 


BEQ 230$ [BRANCH IF 

ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
MOVB  #37,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO ERROR RETURN 
JSR PC a(sP)+ [REPORT ERROR AND RETURN 
SUB #10, ( :MOVE SP TO NO ERROR 


230$: 


:REPORT ERROR IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1 ,~-(SP) ASSUME ERRORS ENABLED 

BIT MHCE , 5008 zARE THEY ENABLED ?? 
235$ sYES !3 


BNE 
BIC #BSE, (SP) [DISABLE BSE 
235$: MOV RMER2I,$BDDAT GET RECEIVED STATUS 
BIC (SP)+,$BDDAT  :CLEAR BSE IF ENABLED 
BEQ 240$ [BRANCH IF BSE OK 
ADD #4, (SP) ZMOVE SP TO USERS ERROR CALL 
MOVB #354 a(SP) ‘WRITE ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO ERROR RETURN 


JSR PC,a(SP)+ 


SREPORT ERROR AND RETURN 
SUB #10, (SP) 


sMOVE SP TO NO ERROR 
240$: 


:BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
FIELD ERRORS, 


: RMCS2 = MDPE 
; RMER1 = DCK,ECH 
sNOTE: 


3 ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
:DCK IS SET. 


sREPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 
MOV #~-1 ,~(SP) z ASSUME ENABLED 
BIT mech, -500$ i DATA FIELD ERRORS ENABLED ?? 


BIC AMDPE , (SP) 
RMCS21 , $BDDAT 


‘ DISBALE MDPE 
V GET RECEIVED STATUS 
BIC (SP)+,$BDDAT 


CLEAR MDPE IF ENABLED 


“an 


“ae gas aoe nr ecg ures EET e 
lcowoe RMO5/3/2 FCTML TST 3 MACRO VO3.01 11-APR-80 13:39:53 PAGE 25-8 


nan 


SECONDARY ERROR CHECK SUBROUTINE SEQ 0213 
457 050420 001412 BEQ 250$ :BRANCH IF MDPE OK 
458 050422 062716 000004 ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
459 050426 112776 000027 000000 MOVB #27,a(SP) [WRITE ERROR NUMBER IN CALL 
460 050434 162716 000002 SUB #2, (SP) :MOVE SP TO ERROR RETURN 
461 050440 004736 JSR PC. a(SP)+ ZREPORT ERROR AND RETURN 
462 050442 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR | 
463 050446 250S: 
465 REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED 
466 050446 012746 177777 #-1,-(SP) : ASSUME ED 
467 050452 032737 000100 051706 Bir #ECH, 500$ ZARE THEY ENABLED ?? 
468 050460 001002 BNE 255$ “YES ! 
469 050462 042716 100000 BIC #DCK, (SP) ‘DE SABLE DCK 
470 050466 013737 001350 001142 255$: MOV RMERII,$BDDAT GET RECEIVED STATUS 
471 050474 042637 001142 BIC (SP)+,$BDDAT | :CLEAR DCK IF ENABLED 
472 050500 001412 BEQ 2608 [BRANCH IF DCK IS OK 
473 050502 062716 000004 ADD 4, (SP) [MOVE SP TO USERS ERROR CALL 
474 050506 112776 000030 000000 MOVB 430, a(SP) [WRITE ERROR NUMBER IN CALL 
475 050514 162716 000002 SUB #2, (SP) :MOVE SP TO ERROR RETURN 
476 050520 004736 JSR PC. a(SP)+ [REPORT ERROR AND RETURN 
477 050522 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 
478 050526 2608S: 
¢ 

480 ;REPORT ERROR IF ECH IS SET AND, 
481 : DATA FIELD ERRORS ARE NOT ENABLED, OR 
482 : ECI IS SET, 
483 : DCK IS NOT Sey. 
484 050526 012746 177777 MOV #-1,-(SP) ZASSUME ENABLED 
485 050532 032737 000100 051706 BIT #ECH,500$ ZARE ERRORS ENABLED ?? 
486 050540 001410 BEQ 265$ 
487 050542 032737 004000 001366 BIT #ECI,RMOF I :1S ECI SET ?? 
488 050550 001004 BNE YES 
489 050552 032737 100000 001350 BIT #DCK,RMER1I IS Dek ALSO SET ?? 
490 050560 001002 BNE 270$ YES ! 
491 050 042716 000100 265$: BIC #ECH, (SP) ‘DISABLE ECH 

492 050566 013737 001350 001142 270$: MoV RMERII,$BDDAT :GET RECEIVED STATUS 
493 050574 042637 001142 BIC (SP)+,$BDDAT | :CLEAR ECH IF ENABLED 
494 050600 001412 BEQ 275$ [BRANCH IF ECH IS OK 
495 050602 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
496 050606 112776 000031 000000 MOVB #31, a(SP) [WRITE ERROR NUMBER IN CALL 
497 050614 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
498 050620 004736 JSR PC-a(SP)+ [REPORT ERROR AND RETURN 
499 050622 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 


500 050626 275$: 
501 








4 

5 050626 
6 050634 
7 050636 
8 

9 

10 050642 
11 050650 
12 050652 
13 050660 
14 050662 
15 050666 
16 050674 
17 050700 
18 050704 
19 050706 
20 050712 
21 
22 
23 050714 
24 050722 
25 050730 
¢ 050734 


28 050742 
29 050750 


40 051022 
4h 


42 

43 051024 
44 051026 
45 051032 
46 

47 051036 
48 051042 
49 051050 
2 051052 


52 051056 
53 051062 


54 051066 
55 051070 
56 
57 





022737 
103402 
000137 


013737 


013737 
163737 
006337 
063737 
032737 


001403 
013737 


005046 
013746 
163716 
012746 
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000030 
051660 


001336 
040000 
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SEQ 0214 


FERRARA EREEEEREEKEREEREKREERREREREREEEEREREREEREEEE 


:APERF ORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


FERRARA EEERERERRERERERERERERREEKEREREREREEEEREREREEEEEEEREK 


051714 CMP MSEARCH,515$  ;WAS DATA TRANSFERRED ? 
BLO 280$ <BR IF YES 
JMP 355$ :NO = EXIT 
REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERO 
001142 280$: mov BMC »SBDDA :WORD COUNT Z=RO?? 
001334 BIT ATRE,RMCS11 : TRANSFER ERROR DETECTED?? 
BNE 285$ SYES!! 
ADD #4, (SP) 
000000 MOoVB =-«s#'15, a SP) ZERROR NUMBER 
CLR SGDDAT :GOOD DATA FOR TYPEOUT 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ ZREPORT WORD COUNT NOT ZERO 
SUB #10, (SP) ZRESTORE (SP) 
NOP 
-REPORT ERROR IF RMBA IS NOT CORRECT | 
001140 285$: MOV RMWCI,$GDDAT | ;GET WORD COUNT AT END OF TRANSFER AND 
001140 suB RMCO. SGDDAT #SUBTRACT STARTING WORD COUNT. 
001140 ADD RMBAO, SGDDAT TAD STARTING BUS ADDRESS 
001344 BT #BAI .RMCS21 :WAS BUS ADDRESS INHIBIT (BAI) SET ?? 
001140 MOV RMBAO,$GDDAT § :ADDRESS SHOULD NOT HAVE CHANGED 
001340 2908: cop SGDDAT .RMBAI BUS ,ADDRESS 0K?? 
001142 Mov RBA -SBDDAT ‘BAD "DATA FOR TYPEOUT 
000000 MOVB #16,a(SP) ZERROR NUMBER 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ :REPORT UNEXPECTED ADDRESS 
SUB #10, (SP) SRESTORE (SP) 
NOP 
; COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 
295$: CLR -(SP) ZNUMBER OF SECTORS TRANSFERRED 
MOV RMWCI,-(SP) ZGET WORD COUNT AT END OF TRANSFER AND 
SUB RMWCO, (SP) + SUBTRACT STARTING WORD COUNT. 
MOV #256. ,-(SP) sASSUME 256. WORDS PER SECTOR 
001410 BT #111 .RMCS10 HEADER & DATA COMMAND ? 
ADD #2, (SP) [CHANGE TO 258. WORDS PER SECTOR 
300$: INC 4(SP) ; INCREMENT SECTOR COUNT 
SUB (SP) ,2(SP) * SUBTRACT ONE ogc TOR” S WORTH 
BGT 300$ [CONTINUE IF NOT DONE 
CMP (SP) +, (SP)+ SRESTORE STACK 


: COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM 


an 





o 
N“N 
~m 


ee ere abt ab aad 
BRS NESEY KRVEKRS 


N 
NM 


Peoxres 


statatetatdad adbadbadadad oda 
uo 3 


51230 
51230 


wi 
— .) 
Mr 
. 
NM 


SN 
aS 


ee 
_ 
~ 


NM 


MMM 
ce cd eed ed ceed ed ed ed ed 


WWW 
On 


SBR TSSSSSSSSSSS oO slKyeLegorye worn wr mow wasn 
eesessseses 

psuee 

BS 


023727 
103406 
005237 
162737 
000766 


023737 
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001444 
epeie 


051706 
051710 
051712 
000010 


J 
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051712 


051716 


051710 


001350 
001466 


051714 


NUMBER OF SECTORS 
RMD 


MOV CO, 500$ zSTORE ORIGINAL CYLINDER 
MOV RMDAO, 505$ :STORE ORIGINAL TRACK 
MOV RMDAO, 510$ :STORE ORIGINAL SECTOR 
MOV LSTRK,520$ SSTORE LAST TRACK, 
SWAB =s-:- 20 [GET TRACK ADDRESS TO LO BYTE AND 
INC 520$ : INCREMENT TO GET TOTL # OF TRACKS. 
BIC #*C<TADMSK>, 505$ :SAVE TRACK ADDRESS BITS AND 
SWAB =s- 505$ ;SWAP TRACK ADDRESS TO | OW BYTE. 
BIC #*C<SADMSK>,510$ ;SAVE SECTOR AD. °ESS BITS 
ADD (SP)+,510$ 
310$: CMP 5108432. :SECTOR OVEFLOWED?? 
BLO 315$ NO! ! 
INC 505$ : INCREMENT TRACK 
SUB #32.,510$ ;ADJUST SECTOR 
BR 310$ :TRY AGAIN 
315$: CMP 505$,520$ ; TRACK OVERFLOWED?? 
BLO 320$ 
INC 500$ INCREMENT CYLINDER 
SUB 520$,505$ SADJUST TRACK 
BR 315$ :TRY AGAIN 
NOP 
gREPORT ERROR IF ‘LBT'' IS NOT CORRECT 
CLR SGDDAT zSET GOOD DATA FOR LBT = 0 
CMP 500$ 4822. :SHOULD LBT BE SET?? 
BLOS  325$ NO! ! 
BIT #IAE,RMER11 :WAS IAE SET ?? 
BNE 325$ >YES = LBT SHOULD NOT BE SET 
MOV #LBT ,SGDDAT ‘SET GOOD DATA FOR LBT = 1 
325$: MOV RMDSI,$BDDAT § :BAD DATA FOR TYPEOUT 
BIC #*CLBT, SBDDAT 
CMP $GDDAT.$BDDAT 1S LBT CORRECT?? 
BEQ 3508 YES! ! 
ADD (SP) 
MOVB nit, a(SP) ZERROR NUMBER 
SUB ;MOVE SP TO RETURN FOR ERROR 
JSR +: BeSP)¢ “REPORT LBT IS WRONG 
SUB #10, (SP) SRESTORE (SP) 
NOP 
- REPORT ERROR IF AOE" IS INCORRECT 
$30$: CLR  $GDDAT :SET FOR AOE = 0 
BIT #IAE,RMER11 WAS ‘‘IAE'' DETECTED?? 
BNE 340 TYES~"‘AOE'’ SHOULD BE ZERO 
CMP 500$,4822. ‘SHOULD AOE BE SET?? 
BLOS  340$ NO! ! 
TST 505$ SMAYBE 
BNE 335$ = YES 
TST 510$ 
BNE 335$ rYES !! 
BIT #F2,515$ :WAS THIS READ OR WRITE CHECK ?? 
BEQ $ =NO !! 


om 


et ed ed ed ed 
OWOOONAOW 
RRS 
FERRE 


HIRES 


VERS 


a kk a kd dd od 
er 


KARUVASVSBVRTRUVLS 
loleoleleleleleleleleleloleleolo) 


MAMMALIA 
ee a ek ed ed ed ed ed 


Ws 


an 
N 


51706 


1 

1 

132 05 

133 05 

134 05 

135 05 

136 05 

137 051534 
138 051542 
139 051550 
140 051552 
141 051556 
142 051564 
143 051570 
144 051572 
145 051576 
146 

147 

148 051600 
149 051606 
150 051614 
151 051622 
152 051630 
153 051632 
154 051636 
155 051644 
156 051650 
157 051652 
158 051656 
159 

160 051660 
161 051664 
162 051670 
163 051672 
164 051676 
165 051 
166 051704 
1 

1 

1 

1 


Oo 
SSE 
oooo 
MiMi 
at ad 
NN 
—— 
&% 
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001336 
001000 
051710 
000001 
001350 


176777 
001140 


000004 
000020 
000002 
000010 
002000 
051710 
001140 
051712 
001342 
001140 


000004 
000021 
000002 


K 1 
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ives | ALL DATA TRANSFERRED ?? 


BEQ 340$ 
001140 335$: MOV WAOE , SGDDAT SET kor A OE = 1 

CLR 505$ [CLEAR EXPECTED TRACK 
051712 MOV #1,510$ TEXPECT SECTOR = 1 
001142 340$: MOV RMER1I,$BDDAT BAD DATA FOR TYPEOUT 
001142 BIC #*CAOE . SBDDAT 
001142 CMP SGDDAT,$BDDAT ;1S AOE CORRECTY?? 

BEQ 3458 YES! ! 
000000 MOVB 926 aC eP) ZERROR NUMBER 

SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 

JSR PC a(sP)+ SREPORT AOE IS WRONG 

SUB #10,(S TRESTORE (SP) 

“REPORT ERROR IF RMDA IS NOT CORRECT 
RMER11 :WAS THERE AN IAE ERROR ?? 


001350 345$: BIT #1 
BN 


E 
001140 MOV 505$,$GDDAT 

SWAB  $GDDAT 
001140 MOVB  510$,$GDDAT 
001142 MOV RMDAI , $BDDAT 
001142 CMP $GDDAT , SBDDAT 

BEQ 350$ 

ADD #4, (SP) 
000000 MOVBs#21, a(SP) 

SUB #2, 

JSR PC *StSP)¢ 

SUB #10, (SP) 


NOP 
- REPORT ERROR IF RMDC IS INCORRECT 
001140 350s: 500$ SGDDAT 
001140 Bre #°C1777,$GD 
1142 MOV RMDC1,$BDD * ag 
001142 CMP SGDDAT , $BDDAT 
BEQ 355$ 
ADD #4, (SP) 
000000 MOVB #22,a(SP) 
SUB #2, (SP) 
JSR PC a(SP)+ 
SUB #10,(S 
NOP 
355$: ADD #4, (SP) 
TSTB = a(SP) 
BEQ 360S 
ADD #4, (SP) 
BR 


360$: SUB #4, (SP) 
PC 


365$: RTS 

500$: .WORD 0 
505$: -WORD 0 
510$: -WORD 0 
515$: .WORD 0 


3YES = DONT CHECK RMDA,RMDC 
;SETUP EXPECTED DISK ADDRESS 


SETUP RECEIVED DISK ADDRESS 
COMPARE EXPECTED & RECEIVED 
sBRANCH IF EQUAL 


ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 


;REPORT BAD DISK ADDRESS 
RESTORE (SP) 


SETUP EXPECTED CYLINDER 
SETUP RECEIVED CYLINDER . 


2 COMPARE CYLINDERS 
sBRANCH IF EQUAL 


ERROR NUMBER 

;MOVE SP_TO RETURN FOR ERROR 
;REPORT BAD CYLINDER 

SRESTORE (SP) 


sMOVE (SP) TO ERROR CALL 

WAS ERROR FOUND?? 

MOVE (SP) TO ERROR RETURN 
MOVE (SP) TO NO ERROR RETURN 
CYLINDER 
; TRACK 


: SECTOR 
FUNCTION CODE 


SEQ 0216 


om 
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172 051716 000000 
173 
174 


3 
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520$: .WORD 0 74 OF rea” FOR DEVICE UNDER TEST = 
; TRACK + 1 TRACK 


SEQ 0217. 


LAST 


on 


— 
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OWDNAUSWWN | O OONAUSWR 


3H Ss Yo YS SY 


051720 


WLS 


24 051720 
25 051726 
26 051734 
27 051740 
051746 
32 051754 
33 051760 
34 051764 
36 
37 edhe, 
38 051 
39 os1776 
40 052004 
41 052010 


013737 
04 sf 
062716 
013737 
047637 


062716 
10507 
16271 


062 
112776 


001142 


001142 


- SBTTL 


M4 
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COMPOSITE ERROR CHECK SUBROUTINE 


+ THIS SUBROUTINE CHECKS THE STORED CONTENTS ! RMER1 AND 


RMER2 AFTER Donte fas EACH REGISTER WORD WITH T 
MASKS AND REPORTS AN 


HE oe *S STATUS 
ERROR IF ANY BITS ARE LEFT ON AFTER 


: THE MASKS ARE APPLIED. 


; CALL: 

741) JSR PC, CMPERRSTS 

; - WORD MASK FOR ERROR REGISTER 1 

: . WORD MASK FOR ERROR oy ISTER 2 

3 2??? RETURN HERE IF NO ERROR 

3 NOP RETURN HERE TO REPORT AN ERROR 

3 ERROR ERROR NUMBER DEFINED BY SUB 

; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ne CHECKS 
3 2??? RETURN HERE IF NO MORE ERROR 

oe $e BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
CMPERRSTS: 


:MASK AND STORE THE CONTENTS OF RMER1 
MO R11,$TMP1 


CLEAR USER'S ERROR CALL 
ADD 


zSEE IF 


5$: 


:SEE IF 


AND RMER2 

V RMER1TI, STORE RMER1 AT TEMP STORAGE 
BIC a(SP) ,$TMP1 SMASK _RMER1 
ADD #2, (SP) :MOVE SP TO NEXT 
MOV RMER2I ,STMP2 :STORE RMER2 AT TEMP STORAGE 
BIC a(SP) ,$TMP2 MASK RMER2 


#6, (SP) MOVE SP TO USER'S ERROR CALL 
CLRB a(SP) CLEAR ERROR NUMBER 
SUB #4, (SP) sLEAVE SP AT NO ERROR RETURN 


THERE WERE ANY ERRORS IN poy 1.E., $TMP1 
TST STMP1 ao ¥ ERRORS TO REPORT?? 


BEQ 5$ 
MOV prey eanaen ;RECEIVED STATUS FOR TYPEOUT 


CLR $GDD EXPECTED STATUS FOR TYPEOUT 
ADD #4, (SP) ;MOV TO R*S ERROR CALL 
MOVB #66 ,a(SP) : CORRECTABLE DATA Wet ERROR # 
S #2, (SP) MOVE SP_TO RETURN F 


UB 
JSR PC ,a(SP)+ 


PORT ERROR VIA USER 
SUB #10, (SP) 


;RE 
SMOVE SP BACK TO BRANCH 


THERE ARE ANY ERRORS TO REPORT IN “'y (STMP2) 
TST STMP2 ae ae IN RMER2? 


BEQ 10$ 

MOV STMP2 ,SBDDAT :RECEIVED STATUS FOR TYPEOUT 
CLR $GD TEXPECTED STATUS FOR TYPEOUT | 
ADD ra Oop) :MOVE SP 
MOVB 4#67,a(SP) SWRITE 


ROR C 
ERROR NUMBER IN USER® s CALL 


SEQ 0218 


Um 


CZRMOAO_RMOS/3/2 FCTNL TST 3 


COMPOSITE ERROR CHECK SUBROUTINE 


052070 162716 000002 
162716 000010 
0002 


65 052104 062716 000004 
052110 105776 000000 

67 052114 001403 

68 052116 062716 000004 

69 052122 02 

70 052124 162716 000004 

| 052130 207 


N 1 
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SUB #2, (SP) 
JSR PC a(SP)+ SREPORT ERROR 
SUB #10, (SP) 


10$: 


cipeahens wat We * ee IF ANY ERROR WAS DETECTED 


s:MOVE SP TO tne USER ERROR 
;MOVE SP TO NO ERROR RETURN 


MOVE SP TO USER'S ERROR CALL 


TSTB a(SP) 
20$ 
ADD #4, (SP) 


BR 
20$: SUB #4, (SP) 
30$: RTS PC 


eWAS | THERE AN ERROR CALLED?? 
ves - MOVE SP TO ERROR RETURN 


sMOVE SP_TO NO ERROR RETURN 
RETURN TO USER 


SEQ 0219 


Tmo 


8 
CZRMOAO RMOS/3/2 FCTNL Jst 3 MACRO V03.01 11-APR-80 13:39:53 PAGE 2 
DEVICE SELECT SUBROUT™ 


SEQ 0220 


“PB... 


} .SBTTL DEVICE SELECT SUBROUTINE 
3 ; THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 
4 : TEST QUEUE. 

6 CALL: 

7 7(1)| «JSR PC,DEVSEL 

» 7(2)| BR 2? RETURN IF NO ERROR 
9 7(3)| NOP ETURN IF ERROR 

10 7(4) ERROR ERROR DEFINED BY SUBROUTINE 

12 052132 DEVSEL: 

14 ICLEAR USER" S ERROR CALL 

15 052132 062716 000004 #4, (SP) :MOVE SP TO USER'S ERROR 

16 052136 105076 000000 CURB a(SP) [CLEAR LOW ORDER BYTE OF CALL 

V7 052142 162716 000004 SUB #4, (SP) [MOVE SP BACK 

19 ;SAVE USER'S INFORMATION AND SETUP REGISTERS 

20 052146 013746 000004 MOV ERRVEC ,-(SP) ;:PUSH ERRVEC ON STAC 

052152 013746 000006 MOV ERRVEC+2,-(SP) PUSH ERRVEC?2 ON STACK 
052156 010046 MOV RO,-(SP) ; ;PUSH RO’ ON STACK 
010146 MOV R1.-(SP) H R1 ON ST 
21 052162 012737 052302 000004 MOV #20$, ERRVEC ‘ETOP FOR BUS TIMEOUT 
5 012737 000300 000006 MOV #PR6,ERRVEC+2 
23 052176 700 001276 MOV E.R :RO = UNIBUS ADDRESS 
5 013701 0014 MOV TSTQUE ,R1 [R1 POINTS TO DEVICE NUMBER 
;SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 

27 052206 111160 000010 MOVB (R1) ,RMCS2(RO)_ WRITE UNIT SELECT BITS 

28 052212 016037 000000 001176 MOV RMCS1(RO),STMP1 :GET "DVA'' STATUS 

29 052220 016037 000010 001174 MOV RMCS2(RO).$TMPO :GET ‘NED"' STATUS 

31 052226 032737 010000 001174 BIT #NED ,STMPO iI \DEVICE NONEXISTENT ? 

32 052234 001407 BEQ 10$ 

33 092236 062766 000004 000010 ADD #4,10(SP) MOVE SP TO USERS ERROR CALL 

34 052244 112776 000111 000010 MOVB = #111,a10(SP) ITE ERROR NUMBER 

35 052252 000422 BR 30$ 

37 052254 032737 004000 001176 10$: BIT ADVA,STMP1 :1S_UeVICE AVAILABLE ? 

38 052262 001021 BNE 35$ “VES! ! 

39 052264 062766 000004 000010 ADD #4,10(SP) [MOVE SP TO USERS ERROR CALL 

40 052272 112776 000112 000010 MOVB #112,a10(SP)  § :WRITE ERROR NUMBER 

41 052300 000407 BR 30$ 

43 -HANDLE BUS TIMEOUT 

44 052302 022626 20$: | CMP (SP)+. (SP) + ZADJUST SP 

45 052304 062766 000004 000010 ADD 10(SP) ‘MOVE SP TO USERS ERROR CALL 

46 052312 112776 000113 000010 MOVB nis a10(SP) WRITE BUS TIMEOUT ERROR NUMBER 

47 052320 162766 000002 000010 30$: SUB #2,10(SP) ZADJUST RETURN 10 "NOP’ PRECEDING 

48 ERROR CAL 

49 

50 


51 052326 
052326 


012601 MOV (SP)+,R1 
052330 012600 MOV (SP)+,RO 
052332 012637 000006 MOV (SP) +; ERRVEC+2 





gage ORE USERS DATA AND RETURN TO ADDRESS ON STACK 


2sPOP STACK INTO R1 
::POP STACK INTO RO 


32POP STACK INTO ERRVEC+2 


Pi 
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052336 012637 000004 
2g 052342 000207 


C 
MACRO VO03.01 11-APR-80 13:39:53 PAGE 28-1 


MOV (SP) +, ERRVEC 
RTS PC 


3;POP STACK INTO ERRVEC 
;EXIT 


SEQ 0221 


tk ed od ed od = oe 


SSBNKAKANASYSVRHRAGLS 
oooo So 
Ww 
Nm 
Ww 
x 


052470 
51 052472 


53 052500 
54 052506 


56 052510 
57 052516 





001424 
032737 
001020 


123737 
101016 


123727 
101410 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
1 

2 
3 
4 
5 
6 
7 
8 
9 


001140 
053602 
001466 
053602 
001333 


000035 


D 
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-SBTTL SEEK STATUS CHECK SUBROUTINE 


THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
;STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 


:THE yo gl Bee TO THE CALLING ROUTINE IF AN gs IS MAU 
AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE ‘ ERROR" 
OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS: 


CALL: 

741) JSR PC,SEKSTS 

; BR 2??? RETURN HERE IF NO ERROR 

: RETURN HERE TO REPORT AN ERROR 

3 ERROR ERROR NUMBER DEFINED BY SUB 

; JSR PC, a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 2??? RETURN HERE IF NO MORE ERRORS 

SEKSTS: 


CLEAR USERS* ERROR CALL 
NOP 


D #4, (SP) MOVE (SP) TO oe CALL 
CLRB a(SP) AR ERROR 
UB #4, (SP) “MOVE (SP) TO NO ERROR RETURN 


CLR 300$ ; CLEAR ERROR FLAGS 
sTEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING 
LOCAL REGISTERS, I.E., ‘PAR'’ = 1 AND ‘DPE’' 
BIT sWAS PARITY ERROR DETECTED?? 


ae AR, RMER1 I a 
BIT #DPE ,RMER21 [WAS IT DUE TO CONTROL BUS?? 
BNE 1$ zNOT SURE!! 


z:REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL 
CLR SGDDAT 


is: 


sEXPECTED STATUS 


MOV tage SBDDAT 3RECEIVED STATUS 


ADD SP) VE STACK TO USER'S ERROR 
MOVB 456. SSP) TERROR # #5 

SUB #2, (SP) SMOVE SP TO RETURN FOR ERROR 
JSR PC a(sP)+ 

SUB “i 10,(S ZRESTORE STACK 


BR ;IAE SHOULD BE ZERO 


sDETERMINE THE VALUE OF "‘IAE’’ STATUS BASED ON TRACK, SECTOR AND CYLINDER 
ALSO, SET ‘'SKI'' IF CYLINDER ADDRESS IS TOO LARGE. 
MOV #IAE ,SGDDAT SETUP FOR IAE = 1 
BIS #SKI ,300$ sSETUP FOR SKI = 1 
CMP RMDCO, #822. ;GREATER THAN LAST CYLINDER ? 
BHI 3$ :YES ~ CYLINDER IS INVALID 
BIC #SKI ,300$ CLEAR SKI ERROR FLAG 


CMPB RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ? 


BHI 3$ YES = TRACK IS INVALID 
CMPB RMDAO #29. SECTOR > 29. 
BLOS 2s :BR IF NO 


Aa 





58 052520 
59 052526 
60 052550 
61 052536 


63 052540 
64 


66 052544 
67 052552 
68 052560 
69 052566 
70 052570 
71 052576 
C4 052600 
74 052600 
75 052604 
76 052612 
77 052616 
78 052620 
79 052624 
80 052626 
8 

83 


85 052626 
052634 


MMi 
SUNY 
Mui 

RRS 


ss ss SY 3 tS 
RWN=ASSBLRER 


Sooooeocooo 
WW Ww wi 
= 
So 


032737 
001406 
123727 
101002 
005037 
013737 


042737 
023737 
001004 


. 


CZRMOAO RMOS/3/2 FCTNL TST 3 
SEEK STATUS CHECK SUBROUTINE 


010000 
001416 


001140 
001350 
175777 
001140 
040000 


000004 
000051 
000002 


000010 


010000 
001140 


001376 
000004 
000060 
000100 
000061 
000002 
000010 
001376 
137777 
053602 
137777 
040000 
000004 
000267 
000002 


000010 


001376 
001142 


000000 
001346 


: S Ssss 
= anh aad od ed 
— ond and ond ed 
* 5 at a te 
Nm oonrn 


2$: 


BIT #FMT16,RMOFO 318 BIT FORMAT ? 

BEQ 3$ YES = oem IS INVALID FOR 18 BIT MODE 
CMPB RMDAO , #31. :SECTOR > 

BHI 3$ YES = SECTOR is INVALID 

CLR $GDDAT :'"IAE"’ SHOULD = 0 


- COMPARE vEXPECTED AND RECIEVED “IAE'' STATUS 
3$: RMER11, $BDDAT IAE OK?? 
BIC A*CIAE.$BDDAT SAVE IAE BIT FOR COMPARE 
CMP SGDDAT.$BDDAT CORRECT ‘‘IAE'’ STATUS ? 
BNE 35 [BR IF NO 
BIC #SK1,300$ :CLEAR SKI F 
hele BR 5$ :GO CHECK NEXT © ERROR 
;REPORT INCORRECT, “'1AE™” STATUS VIA USER'S ERROR CALL 
MOVB #51, a(SP) ZERROR 51 
SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ [REPORT INCORRECT IAE 
SUB #10, (SP) sRESTORE (SP) 
NOP 
5$: 
;REPORT ANY IVC ERROR AS 
: IVC ERROR WITH VOLUME VALID ZERO 
: ERRONEOUS IVC ERROR, VOLUME VALID IS SET 
BIT #IVC.RMER2ZI z1VC ERROR?? 
BEQ 52$ NO! ! 
CLR $GDDAT Z EXPECTED STATUS 
MOV RMER21,$BDDAT :RECEIVED STA 
ADD #4, (SPS zm — SP TO USER’ S ERROR 
VB #60,a(SP) RROR 60 IF VV = 0 
BIT #VV.RMDSI 
BEQ 1$ 
MOVB #61,a(SP) ZERROR 61 IF W = 1 
51$: SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT ERROR VIA USER 
SUB #10, (SP) ‘RESTORE SP 
NOP 
52$: MOV RMER21,$BDDAT  ;RECEIVED STATUS 
BIC #*CSKI,$BDDAT :CLEAR DONT CARES 
MOV 300$, $GDDAT [GET EXPECTED SKI STATUS 
BIC #*CSKI,SGDDAT CLEAR DONT CARES 
BEQ 53$ [BRANCH IF 0 EXPECTED 
;REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED) 
BIT #SK1 ,SBDDAT ZWAS § SkI DETECTED ?? 
ADD #4, (SP) ‘MOVE ép TO USERS ERROR CALL 
MOVB  #267,a(SP) :WRITE ERROR NUMBER 
SUB #2, (SP) MOVE SP TO ERROR RETURN 


53$: 


JSR PC.a(SP)+ “REPORT ERROR AND RETURN 
SUB wid, (SP) [MOVE SP TO NO ERROR 
BR :GO TO NEXT ERROR CHECK 


SEQ 0223 
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F 
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053112 
053120 


ed a dt a hh a a a 
So 
wi 
WWW 
ond and ond oad 
Mr 
o 


— 
ESRESEESSIEAKUNESVRVUSRLUNV Vs sss 
So =] ao 

Ww 
3 
vw 
oOo 


=] 
MMMM 


RS 


CONQW 
Soooooo 
MVM) 
WWWWWWW 
ab ab ok ab ad ed 

VIM & 

ARRAS 


70 
053172 
053176 


ee ee me et me ee ed eed ed od ed 
WONAUES WR 
So oo 
wn 
7 


SsyuyyyyyeviVss 
= ow 


171 053276 


032737 


013746 
042716 
022726 
001002 
000137 


032737 


11 
162716 


040000 


000004 
000054 
000002 


REPORT ERROR IF SKI IS SET 


001142 BIT #SK1,$BDDAT 
BEQ 54$ 
ADD #4, (SP) 
000000 Nove Hh, a(SP) 
JSR pe *stsp)+ 
SUB #10, (SP) 
NOP 
“REPORT ANY DEVICE CHECK 


001376 54$: BIT oe /RMER21 


sIS SKI SET ?? 

NO = SKI IS OK 

;MOVE (SP) TO ERROR 

LOAD ERROR NUMBER 

;MOVE SP TO g th FOR ERROR 


REPORT SEEK ERR 
RESTORE (SP) 


es DVC DURING SEEK?? 


BEQ NO! ! 
CLR $GDDA TEXPECTED STATUS 
001142 mov RNER2I,SBDDAT SRECEIVED STATUS 
000000 MOVB ass. a(SP) TERROR #55 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ REPORT ERROR VIA USER 
SUB #10, (SP) SRESTORE S 
NOP 
;REPORT ANY ‘OPI'' ERROR AS OPI WITH MOL = 0, OR OPI 
“BECAUSE ON CYLINDER LATCH DIDN' T, RESET 
001350 6$: BIT #OP1,RMER11 :"0PI"* ERROR?? 
BEQ 8$ NO! ! 
CLR $GDDAT [EXPECTED STATUS 
001142 MOV RMER1I1,$BDDAT :RECEIVED STATUS 
ADD #4, (SPS [MOVE (SP) TO ERROR 
000000 MOVB #52,a(SP) [LOAD ERROR NUMBER 
001346 BT #MOL -RMDS zMAS MEDIUM ON LINE?? 
000000 MOVB #53,a(SP) SYES = CHANGE ERROR NUMBER 
7$: SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ “REPORT ‘OPI’ ERROR 
SUB #10, (SP) [RESTORE (SP) 
NOP 
:SEE IF 'PIP’' = 0, AND “‘ATA’, ‘"MOL'’ AND ‘VV"' = 1 
8S: MOV RMDSI,-(SP) 
BIC #*C<ATA!PIP! MOL! VV>, (SP) 
CMP HATA!MOL ! VV, (SP) + 
BNE 9$ ZERROR IN RMDS 
JMP 14$ [RMDS IS OK 
-REPORT ERROR IF MOL = 0 AND OPI = 0 
001346 9$: BIT AMOL .RMDS I is MOL RESET?? 
BNE 10$ :NO - MOL IS SET 
001350 BIT #OP1,RMER11 :WAS OPI SET 
BNE 10$ YES = DONT REPORT ERROR 
001140 MOV RMDSI,$GDDAT § :EXPECTED STATUS 
001140 BIS #MOL . $GDDAT 
001142 MOV RMDSI,$BDDAT  ;RECEIVED STATUS 
ADD (SP) 
000000 MOVB #62,a(SP) 
SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 


SEQ 0224 


2o 





172 053302 
173 053304 
174 053310 


053312 


ee ek kd ee ed ee ee ek ed ed ed od ed 
BELRISRAVLESELRAGRAVLSISVRIRG 
oO oO 


226 053566 
227 053572 
228 


004736 
Veovie 
000240 


032737 
001430 
032737 
001024 
013737 
042737 
013737 

716 
112776 
162716 
004736 
162716 
000240 


032737 
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000010 


G 
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;REPORT 
10S: 


;REPORT 
13$: 


14$: 
:MODIFY 


;REPORT ERROR VIA USER 


JSR PC,a(SP)+ 
SUB #10, (SP) 
AN ERROR IF ‘PIP'’ IS STIL SET AND SKI NOT SET 
817 #F IP. RMDSI i1S "PIP" STILL SET?? 
BIT #SK1,RMER21 ‘tas “egy! ‘SET?? 
BNE 11$ SYES=DONT REPORT PIP 
MOV RMDSI,$GDDAT EXPECTED STATUS 
BIC #PIP, $BDDAT 
RMDSI,$BDDAT = ; RECEIVED STATUS 
ADD #4, (SP) [MOVE (SP) TO ERROR 
MOVB #56, a(SP) [LOAD ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 


JSR PC,a(SP)+ 


[REPORT 'PIP’' SET AFTER SEEK 
SUB #10, (SP) 


sRESTORE (SP) 


NOP 

AN ERROR IF ‘‘ATA'’ IS NOT SET 

BIT #ATA,RMDSI +f ATA" SET ?? 
BNE $ 

MOV PMDSI ,$GDDAT 


SEXPECTED STATUS 
BIS #ATA!MOL !DPR! DRY. SGDDAT 
MOV S1,$8DDAT RECEIVED STATUS 


ADD #4, (SP) [MOVE (SP) TO ERROR 

MOVB #57,a(SP) [LOAD ERROR NUMBER 

SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ :REPORT ATTENTION NOT SET DURING 


SUB #10, (SP) sRESTORE (SP) 


ERROR IF VOLUME VALID IS oF oe AND iye IS ZERO 
BIT VV, .RMDSI IS V =0? 


BNE 14 
BIT #IVC,RMER21 
BNE 


MOV RMDSI ,$GDDAT 
BIS VV ,SGDDAT 


a IVC ALSO 0 ?? 
:NO = IVC IS SET 
EXPECTED STATUS 
RECEIVED STATUS 


a P 
MOVB #64 ,a(SP) ERROR #64 
:MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ 


SUB #10, (SP) 
NOP 


be | RETURN ADDRESS IF AN ERROR WAS DETECTED 


ADD #4, (SP) :MOVE (SP) TO ERROR CALL 
TSTB. ~=—-_ a SP) [WAS ERROR CALLED?? 

BEG 15$ =NO!! 

ADD #4, (SP) ‘MOVE TO ERROR RETURN 
BR 16$ 
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229 053574 162716 000004 
230 053600 000207 


1 
232 053602 000000 
233 


H 2 
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15$: ‘SUB #4, (SP) 


sMOVE (SP) TO NO ERROR RETURN 


16$: RTS PC ;RETURN 


300$: .WORD 0 


ERROR FLAGS 


SEQ 0226 
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3 -SBTTL CONTROLLER CLEAR SUBROUTINE 
3 :THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 
¢ AND DRIVES, THEN SELECTS THE DRIVE. 
6 :CALL: JSR PC, CNTCLR 
7 ; BR 77? RETURN HERE IF NO ERROR FUJND 
8 : NOP RETURN HERE IF ANY ERROR FOUND 
9 : ERROR SUB DEFINES ERROR NUMBER 
10 ; 2??? 
11 
12 053604 CNTCLR: 
053604 01004 MOV RO,=(SP) + ¢PUSH RO ON STACK 
053606 010146 MOV R1,-(SP) PUSH R1 ON STACK 
053610 013746 000004 MOV ERRVEC,~( ; PUSH ERRVEC ON STA 
053614 013746 000006 MOV ERRVEC+2,-(SP) 3 PUSH ERAVEC 2 ON STACK 
13 053620 012737 053660 000004 MOV #10$.ER ; SETUP FOR BUS TIMEOU 
14 053626 012737 300 000006 MOV 6, ERRVEC+2 
15 053634 013700 001276 MOV SBASE ,R 3RO_ = UNIBUS ADDRESS 
16 053640 012760 0 000010 MOV ACLR,RMCS2(RO) ;CLEAR MASSBUS 
17 053646 013701 001464 MOV UE ,R :GET DEVICE UNDER TEST 
18 053652 111160 10 MOVB (R1),RMCS2(RO) ;SELECT DEVICE 
4 053656 000412 BR 20$ 
21 053660 022626 10$: CMP (SP) +, (SP)+ sADJUST STACK 
22 053662 062766 000004 000010 ADD #4,10(SP) s:MOVE SP TO USER'S ERROR CALL 
23 053670 112776 000007 000010 MOVB #7,@10(SP) WRITE THE ERROR NUMBER 
$e goeene 162766 000002 000010 20$ SUB #2,10(SP) s:ADJUST SP TO RETURN TO ERROR 
053704 012637 000006 MOV (SP) +, ERRVEC+2 POP STACK INTO ERRVEC+2 
053710 012637 000004 MOV (SP) +, ERRVEC 3: -POP sTAtk INTO ERRVEC 
053714 012601 MOV (SP)+,R1 :POP STACK INTO R1 
053716 012600 MOV (SP)+°RO POP STACK INTO RO 
26 053720 000207 RTS PC 


27 


SEQ 0227 


MNP @ @ 2 Ss SS oS os es 
RW SOO NAME WR ODDNAU AW 


053722 


25 053722 


57 054104 


162716 
013737 
7 


012637 
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001464 


000100 
001140 


001142 


001142 
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-SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 


3 THIS SUBROUTINE VERIFIES THAT THE og iy IS INITIALIZED BASED ON 
;STATUS STORED ” THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
sUSED FOLLOWING A CONTROLLER CLEAR OPERATION, 1.£., WRITING A 1_IN BIT 
75 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 


4 hy» PERTINENT TO THE DEVICE IS NOT CHECKED. IN PARTICULAR, THE 
: FOLLOWING STATUS BITS ARE NOT CHECKED: 


: ATA, ERR,PIP,MOL,WRL,LBT,PGM, VV,OM,UNS, SKI ,DVC 
7 CALL 
7(1).— JSR PC,CLRSTS 
: BR 293 RETURN HERE IF NO ERROR 
; RETURN HERE TO REPORT AN ERROR 
; ERROR ERROR R DEFINED BY SLB 
; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
; 227 RETURN HERE IF NO MORE ERRORS 
CLRSTS: 
:CLEAR USER" S ERROR CALL 
#4, (SP) sMOVE SP TO ERROR 
CURB a(SP) [CLEAR ERROR NUMBER 
SUB #4, (SP) ‘MOVE SP BACK TO NO ERROR 
;REPORT ERROR IF RMCS1 NOT INITIALIZED 
4s: MOV RMCS11,$BDDAT  ; VERIFY RMCS1 
BIC #SC,$BDDA + IGNORE SPECIAL CONDITION 
MOV ADVA!RDY, SGDDAT EXPECT DVA & RDY 
CMP $GDDAT , SBDDAT ARE EXPECTED, RECEIVED 
BEQ 3s IF EQUAL 
ADD :MOVE SP TO USER'S ERROR CALL 
MOVB aide a<SP) WITE ERROR NUMBER IN CALL 
SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ ZREPORT ERROR VIA USER 
sup #10, (SP) ‘MOVE SP BACK TO NO ERROR 
-REPORT ERROR IF RMBA NOT RESET 
S$: CLR SGDDAT ;VERIFY RMBA IS ZERO 
MOV RMBAI , SBDDAT 
BEQ “s :BRANCH IF ZERO 
ADD [MOVE SP TO USER'S ERROR CALL 
MOVB noe BSP) :WITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
JSR PC a(sP)+ T ERROR VIA USER 
SUB #10, ( ‘MOVE SP BACK TO NO ERROR 
-REPORT ERROR IF RMCS2 NOT INITIALIZED 
7$: MOV RMCS2I1,$BDDAT  ;VERIFY RMCS2 
MOV R1,-(SP) ;7PUSH_R1_ON STA 
CLR -(§P) ZEXPECT IR & UNIT NUMBER 
MOV TSTQUE ,R1 -R1 = ADDRESS OF TEST QUE 
MOVB  (R1), (SP) 


BIS #IR, (SP) 
MOV (SP5+, $GDDAT 





SEQ 0228 


2 
CZRMOAO RMOS/3/2 FCTNI. TST 3 MACRO V03.01 11-APR-80 13:39:53 PAGE 31-1 


CONTROLLER CLEAR STATUS CHECK SUBROUTINE SEQ 0229 
58 054110 012601 MOV (SP)+,R1 z:POP STACK INTO R1 
59 054112 023737 001140 001142 CMP SGDDAT,S$8DDAT COMPARE EXPECTED & RECEIVED 
054120 001413 BEQ 9s ‘BRANCH IF EQUAL 
61 054122 062716 000004 ADD ZMOVE SP TO USER'S ERROR CALL 
62 054126 112776 000130 000000 MOVB a150° B<SP) ZWITE ERROR NUMBER IN CALL 
63 054134 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
64 054140 004736 JSR PC. a(SP)+ SREPORT ERROR VIA USER 
65 054142 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
66 054146 000240 NOP 
67 : REPORT ERROR IF RMER1 NOT RESET-IGNORE UNS 
68 054150 005037 001140 5s: CLR SGDDAT ZVERIFY RMER1 
69 054154 013737 001350 001142 MOV RMER11, $BDDAT 
70 054162 042737 040000 001142 BIC #UNS , SBDDAT : IGNORE UNSAFE 
71 054170 001413 BEQ 138 [BRANCH IF ZERO 
72 054172 062716 000004 ADD :MOVE SP TO USER' 5 ERROR CALL 
73 054176 112776 000131 000000 MOVB nS1) BSP) :WITE ERROR RIN CALL 
74 054204 162716 000002 SUB #2, (SP) ZMOVE SP TO RETURN FOR ERROR 
75 054210 004736 JSR PC a(SP)+ [REPORT ERROR VIA USER 
76 054212 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
77 054216 000240 NOP 
;REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC.LS.LST 
79 054220 013737 001360 001142 13$: MOV RMMR1I.$BDDAT  ;VERIFY RMYR 
054226 042737 001142 BIC MWCILSILST, , SBDDAT ; IGNORE WORD CLOCK, SCT, TRK 
81 054234 012737 0 001140 MOV AWD, SGDDAT sEXPECT WRITE DATA BIT 
82 054242 023737 001140 001142 CMP SGDDAT,$BDDAT = COMPARE EXPECTED AND RECEIVED 
250 001413 BEQ 17s [BRANCH IF 0 
84 054252 062716 ADD :MOVE SP TO USER'S ERROR CALL 
256 112776 000133 000000 MOVB rss) a<SP) ZWITE ERROR NUMBER IN CALL 
054264 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
87 054270 004736 JSR PC a(SP)+ “REPORT ERROR VIA USER 
88 054272 162716 000010 SUB #10, (S [MOVE SP BACK TO NO ERROR 
89 054276 000240 NOP 
90 :REPORT AN ERROR IF RMEC2 1S NOT RESET 
91 054300 005037 001140 17$: CLR SGDDAT sEXPECT ZEROS 
92 054304 013737 001402 001142 MOV RMEC21,$BDDAT :VERIFY RMEC2=0 
93 054312 001413 BEQ 195 
14 062716 000004 ADD sMOVE SP TO USER'S ERROR CALL 
112776 000135 000000 MOVB miss. BSP) SWITE ERROR NUMBER IN CALL 
9% 054326 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
97 054332 004736 JSR PC x0(SP)+ [REPORT ERROR VIA USER 
98 054334 162716 000010 SUB #10, (S [MOVE SP BACK TO NO ERROR 
99 054340 000240 NOP 
100 ;REPORT ERROR IF RMMR2 NOT INITIAL IZED~ IGNORE RQA,ROB 
101 054342 013737 001374 001142 19$: MoV RMMR2I,$SBDDAT VERIFY RMMR2 
102 054350 042737 001142 BIC #ROA'ROB, SBDDAT 
103 0 012737 011777 001140 MOV #TST!1777, $GDDAT ;EXPECT TEST BIT ON 
104 023737 001140 001142 CMP SGDDAT , SBDDAT 
105 054372 001413 BEQ 3 
106 054374 062716 000004 ADD #4, (SP) ;MOVE SP TO USER'S ERROR CALL 
107 054400 112776 000136 000000 MOVB #136, a(SP) zWiTe ERROR NUMBER IN CALL 
108 054406 162716 000002 SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
109 054412 004736 JSR PC. a(SP)+ [REPORT ERROR VIA USER 
110 054414 162716 000010 SUB #10, (SP) [MOVE SP BACK TO NO ERROR 
111 054420 000240 NOP 
112 -REPORT ERROR IF RMER2 NOT RESET-IGNORE skI. DVC 
113 054422 005037 001140 21$: CLR $GDD sEXPECT ALL ZEROS 
114 054426 013737 001376 001142 MOV PEER SBDDAT  :VERIFY RMERS 





on 
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115 054434 042737 040200 001142 BIC #SKI'DVC,SBDDAT ; IGNORE DEVICE ERRORS 

116 054442 001413 BEQ 2158 ‘BRANCH IF OTHER BITS 0 

117 054444 062716 000004 ADD :MOVE SP TO USER'S ERROR CALL 
118 054450 112776 000174 000000 MOVB eae SSP) TWITE ERROR R IN CALL 
119 054456 162716 000002 SUB #2, (SP) :MOVE SP_TO RETURN FOR ERROR 
120 054462 004736 JSR PC a(sP)+ REPORT ERROR VIA USER 

121 054464 162716 000010 SUB #10, ( “MOVE SP BACK TO NO ERROR 
122 054470 000240 NOP 

123 “REPORT ERROR IF RMDS NOT INITIALIZED 

124 054472 013737 001345 001142 215$: MOV RMDS1,$BDDAT gTEST DRIVE STATUS REGISTER 
125 054500 042737 177177 001142 BIC #*C<DRY !DPR>, SBDDAT 

126 054506 012737 000600 001140 MOV ADPR!DRY,SGDDAT ; EXPECTED DRIVE STATUS 

127 054514 023737 001140 001142 CMP SGDDAT,SBDDAT | :COMPARE EXPECTED & RECEIVED 
128 054522 001473 BEQ 228 ‘BRANCH IF E 

129 054524 062716 000004 ADD [MOVE SP TO USER'S ERROR CALL 
130 054530 112776 000134 000000 MOVB 414) a(SP) [WRITE ERROR R 

131 054536 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
132 054542 004736 JSR PC.a(SP)+ ZREPORT ERROR TO USER 

133 054544 162716 000010 SUB #10, (SP) ‘MOVE SP BACK TO NO ERROR 
134 054550 000240 NOP 

135 054552 062716 000004 22$: ADD #4, (SP) :MOVE SP TO ERROR CALL 

136 054556 105776 000000 TSTB. = @( SP) :WAS AN ERROE DETECTED?? 

137 054562 001403 BEQ 23$ 

138 054 716 000004 ADD #4, (SP) aa - MOVE TO ERROR RETURN 
139 054570 000402 BR 

140 054572 162716 000004 23$: SUB #4, (SP) zMOVE SP TO NO ERROR RETURN 
141 054576 000240 24$: NOP 

142 054600 000207 RTS PC 





NMrony a 3 @ Se 
NISOWNANRWNAOOMNOUA WR 




















50 
51 054756 032737 
52 054764 001570 
54 
55 054766 032737 


56 054774 001424 
57 054776 013737 
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040000 
001350 


001350 


001350 
001142 


M 
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-SBTTL PACK ACKNOWLEDGE STATUS CHECK 
: THIS sine T CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 


CALL: 
347) 


ACKSTS: 


JSR 
BR 


ERROR 
JSR 
22? 


NG THE STATU 


PC ,ACKSTS 
27? 


PC,a(SP)+ 


CLEAR USER'S ors CALL 


2REPORT 


1$: 
REPORT 


2$: 
;SEE IF 


;REPORT 


ADD (SP) 
CLRB = a SP) 

SUB #4, (SP) 

AN ERROR IF ‘VW"' IS 0 
BIT #VV.RMDSI 

BNE 

MOV RMDS1,$GDDAT 
BIS #VV, SGDDAT 
MOV $1, $8DDAT 
ADD #4, (SP) 

MOVB #155,a(SP) 

SUB #2, (SP) 

JSR PC. a(SP)+ 

SUB #10, (SP) 

NOP 

AN ERROR IF 'MOL'’ IS 0 
BiT #MOL .RMDSI 
Roy RMDSI,$GDDAT 
BIS .$GDDAT 
MOV RMDS1,$BDDAT 
ADD 4, (SP) 

MOVB «#41, a(SP) 

SUB #2, (SP) 

JSR PC. a(SP)+ 

SUB #10, (SP) 

NOP 


ae * *OPI'’, “RMR, **ILR’', 


BEQ 


; COMMAND S STORED IN THE GET BUFFER. 
;REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


RETURN HERE IF NO ERROR 


RETURN HERE TO REPORT AN pe 
RROR 


NUMBER DEFINED BY S 


_&§ 
GO BACK TO SUB FOR MORE ERROR CHECKS 


RETURN HERE IF NO MORE ERRORS 


MOVE SP TO ERROR CALL 
CLEAR LOW ORDER BYTE 

SMOVE SP BACK 

ois VOLUME VALID SET?? 
‘EXPECTED STATUS 

sRECEIVED STATUS 

;MOVE SP TO ERROR CALL 
sWRITE NUMBER IN ERROR CALL 
;MOVE SP_TO RETURN FOR ERROR 
;REPORT THE ERROR 

;MOVE SP BACK TO BRANCH 


4! Bo SET?? 
EXPECTED STATUS 


sRECEIVED STATUS 
:MOV E SP TO ERROR CALL 
T IN CALL 


E OF ERROR 
“MOVE SP = eto FOR ERROR 


: REPORT 
;MOVE SP TO BRANCH 


OR “‘ILF*’ IS SET 


#UNS!OPI!RMRE ILA! ILE , -RMER1I 


AN ERROR IF ‘UNS'' IS SET 
B #UNS ,RMER11 


RMER1I , SBDDAT 





;WAS UNS SET?? 
SRECEIVED STATUS 


ERRORS ARE 
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055004 
59 055012 
05 
61 055024 

0550352 


SSELRTRAVA 
MMMM 
MMMM 






SooooooooSoo 


. * 
= 
So 
wiv 
Wi 
= 
o 


3° 
SSHIRSVRRER 


RANASSRQFSRAVSSSELEFRAT 
oooooecKe =] 





013737 
042 


032737 
001424 

013737 
013737 


001350 


001350 


001142 
001140 


3$: 
REPORT 


4$: 
;REPORT 


5$: 
REPORT 


6$: 
REPORT 





RMER11 , SGDDAT 
#UNS , SGDDAT 


ERROR 
#OPI ,RMER1I 
4$ 


RMER11 , SBDDAT 
RMER11 , SGDDAT 
SGDDAT 


PC. a(SP)+ 
#10, (SP) 


ERROR 
tcl I 


RMER11,SBDDAT 
RMER11.$GDDAT 
ARMR, SGDDAT 
4, (SP) 

#44,a(SP) 

#2, (SP) 

PC a(sP)+ 

#10, ( 


ILR_ERROR 
+ easels 


RMER11,$BDDAT 
RMER11 . $GDDAT 
#ILR, SGDDAT 
#4, (SP) 

#45 ,a(SP) 

#2, (SP) 
PC-a(SP)+ 
#10, (SP) 


ILF ERROR 
oalF -RMER11 


RMER11 , $BDDAT 
RMER11 , $GDDAT 


b 


N 
MACRO V03.01 11-APR~80 13:39:53 PAGE 33-1 


sEXPECTED STATUS 


MOVE SP TO ERROR CALL 

sWRITE NUMBER OF ERROR IN CALL 
MOVE SP_TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


7 WAS OPI SET ?7 
ZNO! ! 


RECEIVED STATUS 
EXPECTED STATUS 


:MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 
MOVE SP_TO RETURN FOR ERROR 
;REPORT THE ERROR VIA USER 
;MOVE SP TO NO ERROR RETURN 


WAS RMR SET?? 
=NO! ' 


SRECEIVED STATUS 
SEXPECTED STATUS 


a SP TO ERROR CALL 
TE NUMBER ERROR IN CALL 
‘MOVE SP_TO RETURN FOR ERROR 


REPORT THE ERROR VIA USER 
;MOVE SP TO NO ERROR RETURN 


WAS ILR SET?? 
=NO! ‘ 


SRECEIVED STATUS 
SEXPECTED STATUS 


MOVE SP TO ERROR CALL 
SWRITE NUMBER OF ERROR IN CALL 
; OR ERROR 


; REPORT 
SMOVE SP TO NO ERROR RETURN 


WAS ILF SET?? 
“NO! ! 


SRECEIVED STATUS 
SEXPECTED STATUS 





SEQ 0232 


rae SSE 





8 : | 
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115 055312 042737 000001 001140 BIC #ILF ,SGDDAT 
116 055 716 000004 ADD #4, (SP) ZMOVE SP TO ERROR CALL | 
117 055324 112776 000046 000000 MOVB +b, a(SP) [WRITE NUMBER OF ERROR IN CALL 
118 055332 162716 000002 / SUB #2, (SP) {MOVE SP TO RETURN FOR ERROR 
119 055336 004736 / ISR PC a(SP)+ SREPORT THE ERROR VIA USER | 
120 055340 162716 000010 SUB #10, (SP) ZMOVE SP TO NO ERROR RETURN 
121 055344 000240 | NOP 
lee 055346 78: | 
a) | 
124 ZAUGMENT RETURN ADDRESS IF ERROR WAS FOUND | 
125 055346 062716 000004 / ADD #4, (SP) MOVE SP TO ERROR CALL | 
126 055352 105776 000000 TSTB = (SP) WAS ERROR FOUND?? | 
127 055356 001403 BEQ 8S | 
128 055360 716 000004 ADD #4, (SP) TYES = MOVE TO ERROR RETURN 
129 055364 000402 BR | 
130 055366 162716 000004 8$: SUB 44, (SP) sMOVE SP TO NO ERROR RETURN 
131 055372 000240 9$: NOP | 
13 055374 000207 RTS PC 
} 


Mr 2 a SS oe 
NISCONANRW OORNOUAWRS 


24 055412 
055420 


42 055512 
oe) 


44 

45 055512 
46 055520 
47 055522 


54 564 
55 055570 
28 055572 


062716 
105076 
162716 


032737 
001553 
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022011 


001350 
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-SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 


+ THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 
[USING THE STATUS STORED IN THE GET BUFFER. 


3; CALL: 
7(1) JSR PC,RCLSTS :CALL SUBROUTINE 
: BR 293 RETURN HERE IF NO ERROR 
: RETURN HERE TO REPORT AN ERROR 
: ERROR ERROR NUMBER DEFINED BY SUB 
: JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
: 27? RETURN HERE IF NO MORE ERR 
RCLSTS: 
CLEAR USER" s ERROR NUMBER 
CLRB = a SP) ZCLEAR USER'S ERROR CALL 


SUB #4, (SP) z:MOVE SP BACK TO BRANCH 


:SEE IF ‘PAR'' OR ““ILF'’ OR ‘OPI'' OR “‘IAE'' IS SET 
BIT MOPI!PAR! ILF! IAE,RMER1I 


BEQ 4$ ZNONE ARE SET - GO TO NEXT CHECK 
;REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E., 
PAR’ = 1 AND ‘DPE’ = 0 
BIT #PAR,RMER1I zWAS "PAR" SET?? 
BEQ NO! ! 
BIT #DPE ,RMER21 FAS: DPE’ SET? 
BNE 1$ “YES = NOT A REGISTER ERROR 
MOV RMER1I,$GDDAT SEXPECTED STATUS 
BIC #PAR, SGDDAT 
MOV MERIT SBDDAT __ RECEIVED STATUS 
ADD (SP “MOVE SP’ TO USER'S ERROR CALL 
MOVB 4563 SP) ;WRITE ERROR NUMBER IN CALL 
SUB *. (aps [MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ [GO REPORT ERROR 
SUB #10, (SP). [MOVE SP BACK TO BRANCH 
1$: 


zREPORT ANY ““ILF’’ ERROR 
BIT MILF ,RMER11 2 Pl all SET?? 


MOV RMER11,$GDDAT EXPECTED STATUS 
BIC MILF ,SGDDAT 
MOV MERI I $BDDAT  ;RELEIVED STATUS 


ADD SPS ‘MOVE SP TO USER'S gERROR CALL 
MOVB Wri a(SP) :WRITE ERROR R_IN CALL 
SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 


JSR PC ,a(SP)+ 


REPORT ERROR VIA USER 
SUB #10, (SP) 
NOP 


“MOVE SP BACK TO BRANCH 
2$: 


SEQ 0234 





D/ 





91 
92 055750 
93 055756 


RWVASSRIURARAV I SSOLE 


032737 
001517 
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020000 
abe 
001350 
000004 


000072 
010000 


000073 
000002 


000010 


002000 
001350 
002000 
001350 
000004 
000070 
000002 


000070 


050200 


010000 
001376 
010000 
001376 
000004 


000074 
000100 


000075 
000002 


000010 


TINE 


001376 


REPORT 


3$: 


31$: 
;REPORT 


4$: 
sSEE IF 


5$: 


6$: 


ANY *OPI'’ ERROR A 
. OPI DUE AS, 


BIT #OPI 

BEQ 31 

MOV RMER11 , SGDDAT 
BIC #OP1, $GDDAT 
MOV RMER1I , SBDDAT 
ADD #4, (SPS 

MOVB #72, a(SP) 

BIT #MOL,RMDS1 
BEQ $ 

MOVB  #73,a(SP) 

SUB #2, (SP) 

JSR PC.a(SP)+ 

SUB #10, (SP) 

NOP 


MOV RMER11 , $GDDAT 
BIC MIAE ,$GDDAT 
MOV RMER11 , SBDDAT 
ADD #4, (SPS 

MOVB 476, a(SP) 

SUB #2, (SP) 


PC. a(SP)+ 
SUB #10, (SP) 
NOP 


oe OR ""'TVC’’ OR 
BEQ 
ANY “‘IVC’* ERROR AS 


-IVC WITH VV = 0 
\ ties 7 IVC ERROR 


BIT #IVC,RMERZ1 
BEQ 6$ 

MOV RMER21 ,$GDDAT 
BIC #IVC, $GDDAT 
MOV RMEREI $BDDAT 
ADD (SPJ 

MOVB Wh aCSP) 

BIT #VV.RMDSI 

BEQ 5$ 

MOVB #75, a(SP) 

SUB #2, (SP) 

JSR PC a(SP)+ 

SUB #10, ( 

NOP 


AN _ERROR IF ‘‘IAE*’ IS SET 
MIAE ,RMER1I 


D 
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TO ’ 
OPI BECAUSE ON CYLINDER LATCH DIDN’ ! RESET 
eRMER11 2 WAS OPI SET? 


TEXPECTED STATUS 


sRECEIVED STATUS 

MOV E SP TO USER'S ERROR CALL 
TE ERFR NUMBER IN USER'S CALL 

+ ileal = 0?? 

‘NO = CHANGE ERROR NUMBER 

sMOVE SP TO RETURN FOR ERROR 

: REPORT ERROR VIA USER 

sMOVE SP BACK TO BRANCH 


31S “‘IAE’' SET?? 

:NO!! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 
MOVE P a RETURN FOR ERROR 


PORT OR 
;MOVE SP BACK TO NO ERROR RETURN 


"DVC'' IS SET 
wskt!IVC!OvE, -RMER21 


NONE OF THE BITS ARE SET 


zsWAS IVC SET?? 
z;NO!! 

sEXPECTED STATUS 
sRECEIVED STATUS 
; MOV’ 


‘MOVE SP TO USER'S ERROR CALL 
:WRITE ERROR NUMBER IN CALL 
YES! ! 

“NO - C 


:NO HANGE ERROR NUMBER 
MOVE SP_TO RETURN FOR ERROR 
REPORT ERROR VIA USER 

MOVE SP BACK TO BRANCH 


SEQ 0235 — 


ek cad ad cd cd ant cd cca cd ed eed eed z 
SOPUNVS 
MEWN— 
Ss3sssss3s33s 
oO eS 
—_ 
® e 


ooo 


56136 


56144 


Sooooooococooo 
Reeeeeeoes 
ARORUROVE 


SBIR 
° 33 
~ 


56306 
056314 
56320 


ek ee ee ee ee ee ee ce ce ee ee ee me ee ee ee ee ed ee ee ee ee we ee ee ee eed ed ed ed ed 


YISEISSRERSE 
Sooo 
e 
& 








01 a6 
04271 

039726 
001002 
000137 


032737 
00 


032737 
001030 
032737 


E 
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REPORT AN ERROR IF MOL = 0 AND OP 
sLINE af ti RECALIBRATE WAS INITIATED 





sREPORT ANY ‘'SKI** ERROR 
BIT 


#SKI.RMER2I :WAS SKI SET?? 
RMER21,$GDDAT EXPECTED STATUS 


: "DVC** ERROR 


#SKI.$GDDAT 
RMER2I,$BDDAT  ;RECEIVED STATUS 

#4, (SPS [MOVE SP TO USER'S ERROR CALL 

#76,a(SP) [WRITE ERROR NUMBER 

#2, (SP) [MOVE SP TO RETURN FOR ERROR 

PC. a(SP)+ [REPORT ERROR VIA USER 

#10, (SP) ‘MOVE SP TO BRANCH 

ADVC,RMERZ1 :WAS *DVC'* SET?? 


=NO!! 
RMER21 , SGDDAT TEXPECTED STATUS 
RMERST. SBDDAT :RECEIVED STATUS 
#4, (SPS V 


:MOVE SP TO USER'S ERROR CALL 
#77,a(SP) [WRITE ERROR NUMBER 
#2, (SP) [MOVE SP TO RETURN FOR ERROR 
PC. a(SP)+ ZREPORT ERROR VIA USER 
#10, (SP) :MOVE SP TO USER'S BRANCH 
PIP" AND "OM'’ ARE 0, AND "‘ATA'',"MOL"’ "VV" ARE 1 
RMDS I . -(SP) :PUT RMDS ON STACK 


#*C<PIP!MOL !VV!OM!ATA>, (SP) 
nt iie - (SP) + 


13$ 


= 0, 1.E., MEDIUM WENT OFF 


#MOL .RMDS | :D1D MOL DROP?? 
#OP1,RMER1I :WAS OPI ERROR REPORTED?? 
9$ TYES = DON'T REPORT MOL=0 
RMDSI,$GDDAT § :EXPECTED STATUS 
MOL « SGDDAT | 
RMDSI,$BDDAT_ __:RECEIVED STATUS 
#4 (SB) zMOVE SP’ TO USER'S ERROR CALL 
#1000 :WRITE ERROR NUMBER 

:MOVE SP _TO RETURN FOR ERROR 
fe *srep)+ “REPORT ERROR VIA USER 
#10, (SP) [MOVE SP BACK TO USER'S BRANCH 


nT ERROR IF *‘Vv'* = 0 AND ‘“IVC'' = 0 


448 -RMDSI DID "vv"" DROP?? 
#IVC,RMER2Z1 iUas THERE A IVC ERROR?? 
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or 
EASE 


wlolelelelelelolelole) 
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oa 
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So ooo 
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N 
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228 056646 
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BNE 10$ ZYES = DONT REPORT vv=0 

MOV RMDSI,$GDDAT §; EXPECTED STATUS 

MOV RMDSI,$BDDAT §; RECEIVED STATUS 

BIS #VV, $SGDDAT 

ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB  #101,a(SP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP ‘MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ 

SB #10, (SP) :MOVE SP BACK TO USER'S BRANCH 


AN_ERROR IF ATA IS NOT SET 
BIT #ATA,RMDSI em Fa SET DURING RECAL IBRATE?? 


TEXPECTED STATUS 
1,$B8DDAT RECEIVED STATUS 


RMD 
ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
MOVB «#102, a( SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP 

JSR PC. a(SP)+ 

SUB #10, (SP) :MOVE SP TO USER'S BRANCH 


AN ERROR IF ‘OM'' IS NOT ZERO BECAUSE RECALIBRATE SHOULD 
he OFFSET MODE 


BI #OM,RMDSI :WAS ‘OM’ RESET?? 

BEQ 12$ TYES!! 

MOV RMDSI,$GDDAT EXPECTED STATUS 

BIC #OM, $GDDAT 

MOV RMDSI,$BDDAT §; RECEIVED STATUS 

ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
MOVB #103,a(SP) [WRITE ERROR NUMBER 

SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ [REPORT ERROR VIA USER 

sus #10, (SP) [MOVE SP TO USER'S BRANCH 


REPORT AN ERROR IF ‘PIP’’ IS STIL ON, I.£., DRIVE NOT ON 
LINDER 


#PIP,RMDSI IS DRIVE OFF CYLINDER?? 
13$ ;NO!! 


BIT #SK1,RMER2I SWAS "‘SKI'' DETECTED?? 
BNE [YES-DONT REPORT ‘PIP"' 
MOV RMDSI,$GDDAT § :EXPECTED STATUS 

BIC #PIP, $GDDAT 


MOV RMDSI,$BDDAT — ;RECEIVED STATUS 

ADD #4,(SP) ;MOVE SP’TO USER'S ERROR CALL 

MOVB #104,a(SP) :WRITE ERROR NUMBER 

SUB #2, (SP [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ 

sue #10, (SP) :MOVE SP BACK TO USER'S BRANCH 





229 056650 


056650 
2335 056656 


0 
241 056712 
242 056716 
243 056724 
44 0 
245 056732 
246 056736 
247 056740 
248 
249 
$0 056740 


251 056746 
252 056750 
3 056756 


285 057130 
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032737 
001514 


032737 
00 
013737 
042 
013737 
062 


000402 
162716 
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SEQ 0238 


:SEE IF a OR ‘RMR’ OR ‘UNS'' IS SET 
Q 


#ILR!RMR!UNS ,RMER1 I 
16$ 
AN ERROR IF “ILR'' IS SET 
BIT tis »PMER11 :WAS ILR SET DURING RECALIBRATE?? 
Pil, SGDDAT TEXPECTED STATUS 


MOV RMER1 I SBDDAT ;RECEIVED STATUS 
ADD #4, (SPS ;MOVE SP’TO USER'S ERROR CALL 


MOVB #105,a(SP) ZWRITE ERROR NUMBER IN CALL 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ 

sus #10, (SP) :MOVE SP TO USER'S BRANCH 


AN_ERROR IF ‘RMR’ IS SET 
B ARMR ,RMER11 ae SET?? 


RMER11,$GDDAT :EXPECTED STATUS 
BIC ARMR, $GDDAT 
MOV RMER I ‘SBDDAT :RECEIVED STATUS 


ADD [MOVE SP TO USER'S ERROR CALL 
MOVB rig a(SP) ZWRITE ERROR NUMBER IN USER'S CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ SREPORT ERROR VIA USER 

SUB #10, (SP) sMOVE SP TO USER'S UBRANCH 
NOP 

AN ERROR IF "UNS'’ IS SET AND 'DVC’' IS 0 

BIT #UNS , RMER1I zWAS UNSAFE ON?? 

BEQ 16$ NO! ! 

BIT #DVC .RMERZ1 :WAS THERE A DEVICE CHECK?? 
BNE 1 ON'T REPORT UNSAFE 


“YES = D 
RMER1I, SGDDAT SEXPECTED STATUS 
HUNS , SGDDAT 
MOV RMERII,$BDDAT  ;RECEIVED STATUS 
#4, (SPS [MOVE SP TO USER'S ERROR CALL 
MOVB  #107,a(SP) TE ERROR NUMBER 


SWRITE E 
SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ REPORT ERROR VIA USER 
SUB #10, ( “MOVE SP BACK TO USER'S BRANCH 
NOP 
ZAUGMENT TIE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
ADD —s #4, (SP) :MOVE SP_TO USER'S ERROR CALL 
TSTB = a SP) WAS AN ERROR REPORTED? ? 
BEQ 17$ NO! ! 
ADD #4, (SP) SYES = AUGMENT SP RETURN 


SUB #4,(SP) ;NO ERROR - RETURN SP TO BRANCH 





H 3 
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286 057134 000240 18$: NOP 
oon 057136 000207 RTS PC sSTATUS CECK IS COMPLETE 





SEQ 0239 


Ci 
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DRIVE CLEAR STATUS CHECK SUBROUTI 
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SEQ 0240 


| .SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 
3 ; BR 227 RETURN HERE IF NO ERROR 
4 : RETURN HERE TO REPOR’ AN ERROR 
5 : ERROR ERROR NUMBER DEFINED BY SUB 
6 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
i : 22? RETURN HERE IF NO MORE ERROR 
16 057140 DRVSTS: 
11 I CLEAR USER S ERROR CALL 
12 057140 062716 000004 #4, (SP) :MOVE SP TO ERROR CALL 
13 057144 105076 000000 CURB a(SP) CLEAR ERROR CALL 
14 057150 162716 000004 SUB #4, (SP) ‘MOVE SP TO USER'S BRANCH 
15 :REPORT ERROR IF RMCS1 NOT INITIALIZED 
16 057154 013737 001334 001142 4s: MOV RMCS1I1,$BDDAT  ; CHECK RMCS1 
17 057162 042737 173700 001142 BIC #°C<DVA!FNCMSK>, $BDDAT ;CLEAR DONT CARES 
18 057170 012737 010 001140 MOV ADVA!DRVCLR, $GDDAT TEXPECT DVA 
19 057176 023737 001140 001142 CMP SGDDAT,$BDDAT ; COMPARE EXPECTED & RECEIVED 
20 057204 001443 BEQ [BRANCH IF EQUAL 
21 057206 062716 ADD #4, (SP) ;MOVE SP TO ERROR CALL 
22 057212 112776 000141 000000 MOVB  #141,a(SP) WRITE NUMBER OF ERROR IN CALL 
23 057220 162716 SUB #2, (SP) MOVE SP-TO RETURN FOR ERROR 
24 057224 004736 JSR PC,a(SP)+ ;REPORT THE ERROR VIA USER 
25 057226 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR XE TURN 
26 057232 000240 NOP 
-REPORT ERROR IF RMDS NOT INITIALIZED 
28 057234 013737 001142 5$: MOV RMDSI.SBDDAT |; CHECK RMDS 
29 057242 042737 021101 001142 BIC #PGM!OM'VV!PIP,SBDDAT  ;CLEAR DONT CARES 
30 057250 012737 001140 MOV #MOL | DPR! DRY, SGDDAT EXPECT Y & DPR 
1 057256 023737 001140 001142 CMP SGDDAT , SBDDAT ; COMPARE EXPECTED . RECEIVED 
57 1413 BEQ 6s IF EQUAL 
33 057266 716 ADD ;MOVE SP TO ERROR CALL 
34 057272 112776 000142 000000 MOVB mie. ESP) WRITE NUMBER OF ERROR IN CALL 
05 162716 2 SUB #2, (SP) <MOVE SP TO RETURN FOR ERROR 
05 004736 JSR PC 4a(SP)+ SREPORT THE ERROR VIA USER 
37 057306 162716 000010 SUB #10, (S [MOVE SP TO NO ERROR RETURN 
38 057312 00024 NOP 
:REPORT ERROR IF RMER1 NOT INITIALIZED: 
40 057314 005037 001140 é$: CLR SGDDAT sEXPECT 0°S 
57320 013737 001350 001142 MOV RMER11,$BDDAT CHECK RMER1 
42 057326 001413 BEQ aS ‘BRANCH IF E 
43 057330 ADC #4, (SP) [MOVE SP TO ERROR C 
57334 112776 000143 000000 MOVB wks, a(SP) * WRITE OF ERROR IN CALL 
45 057342 162716 SUB P [MOVE SP TO RETURN FOR ERROR 
57346 004 JSR Pe *a(SP)+ SREPORT THE ERROR VIA USER 
47 057350 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR RETURN 


; REPORT 
BS: 





NOP 
ERROR IF ATA NOT IMITIALIZED 
MOV RMASI , SBDDAT 


CHECK ATTENTION BIT 
R1 ON STACK 


R1,-(SP) +; PUSH 
Re_o (SP) + :PUSH R2 ON STACK 
1(R1) Re 

#°CATNMSK ,R2 


R 
R2, $8DDAT 
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DRIVE CLEAR STATUS CHECK SUBROUTIN 


38 057412 012602 
057416 005737 001142 


062716 000004 
63 057430 112776 000144 
64 057436 000002 
65 057442 
66 057444 
pe4 057450 
69 057452 013737 001360 
70 057: 04 000046 


004 
162716 000010 
000240 


90 05 
91 057610 000240 
92 057612 005037 001140 


peter rr ee ttt + 
SRQEGRASLSSELRGKE 
ooooo 


aad eed a ed ed 
SWN0 


3 
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MOV (SP)+,R2 


MOV (SP) +-R1 

TST SBDDAT 

BEQ 

ADD (SP) 
000000 MOVB #144 a(SP) 

S (SP) 


UB 
JSR pe *a(SP)+ 
SUB #10, (SP) 


ae sPOP STACK INTO R2 
2¢POP_STACK INTO R1 

1S ATTENTION CLEARED?? 
;BRANCH IF ATTENTION CLEARED 


PORT T 
“MOVE SP TO NO ERROR RETURN 


NOP 
; REPORT —" IF RMAR1 NOT ee wen 


001142 9$: ,SBDDAT CHECK 
001142 BIC MWC'LS'LST, SBDDAT RA CLEAR DONT CARES 
001140 MOV AMID , SGDDAT ZEXPECT WRITE DATA ON 
001142 CMP SGDDAT,$BDDAT COMPARE EXPECTED AND RECEIVED 
BEQ Mis ‘BRANCH IF ZERO 
ADD [MOVE SP TO ERROR CALL 
000000 MOVB nis a<sP) ZWRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ ZREPORT THE ERROR VIA USER 
Sup #10, (SP) :MOVE SP TO NO ERROR RETURN 
;REPORT ERROR IF RMMR2 NOT INITIALIZED 
001142 11$: MOV ROAR DAT CHECK RMMR2 
001142 BIC QA'ROB SBDDAT CLEAR REQA, REQB 
001140 MOV astitveh Sep ;EXPECT TEST BIT ON 
001142 CMP SGDDAT Seopa " sCOMPARE™ EXPECTED & RECEIVED 
BEQ 15$ CH IF EQUAL 
ADD #4, (SP) :MOVE SP TO ERROR CALL 
000000 MOVB #146,a(SP) [WRITE R OF E IN CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ER 
JSR PC. a(SP)+ [REPORT THE ERROR VIA USER 
ioe #10, (SP) [MOVE SP TO NO ERROR RETURN 
15$: CLR SGDDA ZEXPECT ZEROS 
;REPORT ERROR IF omece NOT RESET’ 
001142 MOV RMEC2I,$BDDAT | ;CHECK RMEC2 
BEQ 17$ [BRANCH IF 0 
ADD #4, (SP ;MOVE SP TO ERROR CALL 
000000 Move  #150,a(sP) [WRITE NUMBER OF ERROR IN CALL 
SUB (SP [MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ [REPORT THE ERROR VIA USER 


SUB #10, (SP) 


NOP 
;REPORT ERROR IF RMER2 NOT RESET 
001142 17$: MOV RMERZI , SBDDAT 


BEQ 

ADD #4, (SP) 
000000 MOVB #147,a(SP) 

SUB #2, (SP) 


-(SP 
JSR PC,a(SP)+ 
SUB #10, (SP) 


18$: 
19$: 


;MOVE SP TO NO ERROR RETURN 


;MOVE SP TO NO ERROR RETURN 


SEQ 0241 
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DRIVE CLEAR STATUS CHECK SUBROUTINE SEQ 0242 
115 sAUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND 
116 057712 062716 000004 ADD #4, (SP) MOVE SP TO ERROR CALL 
117 057716 105776 000000 TSTB a(SP) sWAS AN ERROR DETECTED?? 
118 057722 001403 BEQ 21$ ZNO! ! 
119 057724 062716 000004 ADD #4, (SP) YES = MOVE SP TO ERROR RETURN 
120 057730 000402 BR 3$ 
121 057732 162716 000004 21$: SUB #4,(SP) ;MOVE SP BACK TO NO ERROR RETURN 
122 057736 000240 238: NOP 
1s2 057740 000207 RTS PC RETURN TO USER 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUT SEQ 0243 





1 .SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 
3 ;THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
4 SUSING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
5 : STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
6 THE ERROR NUMBER IN THE USERS ERROR CALL. 
® SUSER'S SUBROUT INE CALL: 

9 =) PC. DTASTS 

10 (2) ae RETURN HERE IF NO DATA ERRORS 

11 :(3) NOP RETURN HERE TO REPORT AN ERROR 

12 :(4) ERROR UB WRITES ERROR NUMBER 

13 7(5) JSR PC,a(SP)+ USER RETURNS FOR MORE CHECKS 

14 (6) =? SUB RETURNS HERE L 

i ; : ERRORS ARE REPORTED 

V7 057742 DTASTS: 

19 :CLEAR USER'S ERROR CALL AND ERROR FLAGS 

20 057742 716 000004 ADD #4, (SP) ;MOVE SP TO USER'S ERROR 

21 057746 105076 000000 CLRB = a(SP) ZCLEAR LOW ORDER BYTE OF TRAP 

22 057752 162716 000004 SUB #4, (SP) ;RESTORE SP TO NO ERROR 

33 057756 005037 063336 CLR 500$ [CLEAR ERROR FLAGS 

2 REPORT ANY CONTROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS. 

27 057762 032737 020000 001334 BIT WMCPE,RMCS1I1 ——-; WAS: THERE A PARITY ERROR?? 

28 057770 001422 BEQ 10$ NO! ! 

057772 013737 001334 001140 MOV RMCS11,$GDDAT EXPECTED STATUS 
060000 042737 02 001140 BIC AMCPE , $GDDAT 

31 060006 013737 001334 001142 MOV Reicsii SBDDAT  ;RECEIVED STATUS 

32 060014 062716 000004 ADD (SPJ [MOVE SP TO USER'S ERROR CALL 

33 060020 112776 000013 000000 MOVB nS. a(SP) [WRITE ERROR NUMBER 

34 060026 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 

35 060032 004736 JSR PC. a(SP)+ SREPORT ERROR AND RETURN 

36 060034 000466 BR 30$ 

37 060036 10$: 

39 ;REPORT ANY | CONTROL BUS _ PARITY ERROR WHILE WRITTING REMOTE REGISTERS. 

41 060036 032737 000010 001350 I #PAR,RMER1 I :WAS THERE A PARITY ERROR? 

060044 001435 BEQ 20$ 
43 060046 032737 000010 001376 BIT ADPE ,RMER21 ‘DATA PARITY ERROR ? 
060054 001031 BNE “YES! ! 
45 060056 013737 001350 001140 MOV RMER11,$GDDAT ‘ESpECTED STATUS 
2737 10 001140 BIC #PAR, $GDDAT 

47 060072 013737 001350 001142 MOV RMER I SBDDAT ;RECEIVED STATUS 

48 060100 062716 000004 ADD (SPS :MOVE SP TO USER'S ERROR 

49 060104 112776 000050 000000 MOVB #56 a¢SP) [WRITE ERROR R 

50 060112 032737 001000 001344 BIT WMXF ,RMCS21 :D1D MXF GET SET?? 

51 060120 001003 BNE 15$ YES! ! 

52 060122 112776 000274 000000 MOVB  #274,a(SP) [NO = CHANGE ERROR NUMBER 

53 060130 162716 000002 15$: SUB #2, (SP [MOVE SP TO RETURN IF ERROR 

54 060134 004736 JSR PC. a(SP)+ [REPORT ERROR AND RETURN 

29 060136 000425 BR 30$ 

57 ;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 





59 


Ge epgestnets 


SIBARANANASSELSSLELASSY 
3 


RWN=ASSRVGKGRALLSS 


032737 
001425 


162716 
000137 


CZRMOAO RMOS/3/2 FCTNL TST 3 
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


001000 
001344 
001000 
001344 
000004 
000275 
000002 


000010 
063310 


000004 
000277 
000002 
000010 


010000 


001376 
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001376 


001140 


sMECHANICAL POSITIONING 


ats A MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
; CODE GO BIT WERE LOADED 


eI WMXF ,RMCS21 WAS MISSED TRANSFER'' SET?? 

MOV RMCS21,$GDDAT [EXPECTED STATUS 

BIC #MXF . SGDDAT 

MOV RMCS21,$BDDAT  ;RECEIVED STATUS 

ADD #4, (SP ‘MOVE SP TO USER'S ERROR CALL 

MOVB W279 a(SP) [WRITE ERROR NUMBER 

SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
vo JSR PC. a(SP)+ [REPORT ERROR AND RETURN 
jRESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING 

SUB #10, (SP) :MOVE SP TO NO ERROR 

JMP 5808 :SKIP TO END OF SUB 
40$: 


sREPORT AN ERROR IF ‘‘OPI"' ERROR OCCURRED DUE TO ‘MOL’' = 0, OR IF 
AND MOL" ARE SET, BUT "'VV'' IS RESET, INDICATING AN INTERMITTENT 


; BIT #OPI,RMER1I z1S ‘OPI'' SET?? 
60$ ZNO! ! 
ZEXPECTED STATUS 


‘OPI'' 


Moy RMER11 § SGDDAT 
MOV RMERI 7. SBDDAT zRECEIVED STATUS 
BIT #MOL .RMDSI :WAS MEDIUM OFF LINE?? 
BEQ 45$ YES!! 
BIT #VV.RMDSI WAS "MOL'’ INTERMITTENT?? 
BNE 50$ NO! ! 
45$: ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
MOVB  #276,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE sP TO RETURN IF ERROR 
JSR PC. a(SP)+ T ERROR AND RETURN 
SUB #0, (SP) {RESTORE SP TO NO ERROR 
50$: 


REPORT "OPI" ERROR, WHICH IS DUE TO ‘ON 1 all NOT DROPPING OR 
3" RUN”’ _— (9 Ms) OR SEARCH TIMEOUT (50 MS 


JMOVE SP 10 USER'S ERROR CALL 
MOVE #377 -aXSP) :WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
JSR PCa SP+ ZREPORT ERROR AND RETURN 
Suu sw, ¢ ZRESTORE SP TO NO ERROR 
NOP 
608: 
LOOK FOR "IVC" ERROR DURING COMMAND INITIATION |, 
BIT AIVC.RMER2T WAS THERE AN “"IVC'* ERROR?? 
:REPORT TIVC'" ERROR. DUE TO “VWV"" = 0. OR REPORT ERRONEOUS “‘IVC** ERROR 


RMER2I « SGDDAY ;EXPECTED STATUS 


SEQ 0244 


| 
EEEOEOEOEeEeEeEeEeEeEeEeEeEeEOEEeeEeeEeeeeeEeEeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee_eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee eee aaa SSS 


115 060366 
116 060374 
117 060402 
118 060406 
119 060414 
120 060422 
121 060424 
122 060432 
123 060436 
124 060440 
125 060444 
126 

127 

128 060444 
129 060452 
130 

131 060454 
138 de0ces 
133 060464 
134 060472 
135 060500 
136 060506 
137 erg atd 
138 0605 
139 060524 
140 060526 
141 060532 
142 060534 
143 

145 060534 
146 060542 
147 060544 
148 060552 
149 060 


8 
g 


cee Tn 


AVSSELETLRLATISSSVRARUNS2 


001510 
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001140 
001142 


000000 
001346 
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BIC #IVC,$GDDAT 
MOV RMER2I , SBDDAT RECEIVED STATUS 
ADD #4, (SPS :MOVE SP TO USER'S ERROR 
MOVB  #300,a(SP) :WRITE ERROR NUMBER IN CALL 
gi! #VV,.RMDSI zWAS VOLUME VALID?? 
MOVB  #301,a(SP) ‘CHANGE ERROR NUMBER 

65$: SLB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ “REPORT "‘IVC’’ ERROR AND RETURN 
SUB #10, (SP) SRESTORE SP TO NO ERROR 

70$: 

:SEE IF “ILF’’ OR "RMR'' IS SET 
BIT MILR!ILFIRMR, RMERTI 
BEQ 100$ ZNO ERRORS DETECTED 

;REPORT AN ERROR IF “‘ILR'’ IS SET 
BIT #ILR,RMERTI sWAS "'ILR'* DETECTED?? 
MOV RMER1I,$GDDAT EXPECTED STATUS 
BIC #ILR,$GDDAT 
MOV MER! 1,$8DDAT  ;RECEIVED STATUS 
ADD (SP ‘MOVE SP TO USER'S ERROR CALL 
MOVB #302: a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
JSR PC Stsp)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) SRESTORE SP TO NO ERROR 

80$: 

;REPORT AN ERROR IF “‘ILF'’ IS SET 
BIT #ILF, »RMER1I zWas “IL” DETECTED?? 
MOV RMER1I1,$SGDDAT :_XPECTED STATUS 
BIC #ILF ,SGDDAT 
MOV RMERII,SBDDAT ;RECEIVED STATUS 
ADD #4, (SPS ‘MOVE SP TO USER'S ERROR CALL 
MOVB  4#303,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ : T ERORR AND RETURN 
iB #10, (SP) [RESTORE SP TO NO ERROR 

90$: 


;REPORT eo IF *RMR'’ IS SET 


BIT #FORRMERI | ZA "ROR" DETECTED?? 

MOV RMER1I, SGDDAT TEXPECTED STATUS 

BIC ARMOR, SGDDA 

MOV RMERII SOODAT : RECEIVED STATUS 

ADD #4, (SPS SMOVE SP TO USER'S ERROR CALL 
MOVB #304. a(SP) SWRITE SERROR NUMBER IN CALL 
SUB #2, (SP) ;MOVE SP_TO RETURN IF ERROR 
JSR PC. a(SP)+ “REPORT ERROR AND RETURN 

SUB #10, (SP) SRESTORE SP TO NO ERROR 


100$: 
;DETERMINE WHETHER OR NOT ‘‘IAE’’ SHOULD BE SET AND CHECK FOR ERROR 





SEQ 0245 


EE 
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7 060674 012737 002000 001140 V MIAE ,SGDDAT SETUP FOR ‘‘IAE’' = 1 
173 060702 052737 040000 063336 BIS #SKI, TSETUP FOR "SKI" = 1 

174 060710 023727 001444 001% CMP RMDCO, #822. ZGREATER THAN LAST CYLINDER ? 
175 060716 101025 BHI 110$ TYES = CYLINDER IS INVALID 
176 060720 042737 040000 063336 BIC #SK1,500$ SRESET SKI FLAG 

178 960726 123737 001417 001333 CMPB =- RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ? 
179 060 101016 BHI 110$ TYES = TRACK IS INVALID 

181 060736 123727 001416 000035 CMPB —s RMDAO,, #29. r1S SECTOR > 29. ? 

182 060744 101410 BLOS 1 : 

183 060746 032737 010000 001442 BIT #EMT16,RMOFO 318 BIT FORMAT ? 

184 060754 001406 BEQ 110$ ZYES = SECTOR IS INVALID FOR 18 BIT MODE 
185 060756 123727 001416 000037 CMPB —s- RMDAO, #31. SIS SECTOR > 31. ? 

186 060764 101002 BHI 110$ YES = SECTOR IS INVALID 
187 060766 005037 001140 105$: CLR SGDDAT :""IAE'’ SHOULD = 0 

189 060772 013737 001350 001142 110$: mov RMER1I1,$BDDAT  ;GET RECEIVED STATUS 

190 061000 042737 175777 001142 BIC #*CIAE.SBDDAT ‘ane 

191 061006 023737 001140 001142 CMP SGDDAT,$BDDAT IS ‘‘IAE'’ STATUS 0K?? 

192 061014 001004 BNE 115$ NO! ! 

193 061016 042737 040000 063336 BIC #SK1,500$ TIAE OK = SKI SHOULD BE 0 
194 061024 000412 BR 120$ 

195 061026 062716 000004 115$: ADD 4,(S yMOVE SP TO USER'S ERROR CALL 
196 061032 112776 000305 000000 MOVB #305,a(SP) [WRITE ERROR R 

197 061040 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
198 061044 004736 JSR PC.a(SP)+ [REPORT ERROR AND RETURN 
199 061046 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 

300 061052 120$: 

202 ;REPORT AN ERROR IF ‘‘SKI'’ IS SET AND ‘‘IAE’’ STATUS WAS OK 
203 061052 013737 001376 001142 MOV RMER21,$BDDAT  ;RECEIVED STATUS 

204 061060 042737 137777 001142 BIC #*CSKI.$BDDAT 

205 061066 013737 063336 001140 MOV 500$, T ZEXPECTED STATUS 

206 061074 042737 137777 001140 BIC #*°CSKI, $GDDAT 

207 061102 032737 04 001376 BIT #SK1,RMER ZWAS "SKI" SET?? 

208 061110 001417 BEQ 140$ NO! ! 

209 061112 032737 040000 063336 BIT #SK1,500$ [WAS SKI CAUSED BY IAE = 0?? 
210 061120 001032 BNE 150$ ZYES = DON'T REPORT SKI 

211 061122 716 000004 ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
212 061126 112776 000306 000000 MOVB #306, a(SP) [WRITE ERROR NUMBER 

213 061134 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
214 061140 004736 JSR PC. a(SP)+ [REPORT ERROR AND RETURN 
215 061142 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 

316 061146 000417 BR 150$ 

218 061150 140$: 

220 ;REPORT AN ERROR IF SKI = 0 AND IAE WAS NOT DETECTED 

221 061150 032737 040000 063336 BIT #SK1,500$ sSHOULD SKI BE SET?? 

222 061156 001413 BEQ 150$ NO! ! 

223 061160 06271 ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
224 061164 112776 000307 000000 MOVB = #307, a(SP) [WRITE ERROR NUMBER IN CALL 
225 061172 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
226 061176 0047 JSR PC. a(SP)+ [REPORT ERROR AND RETURN 

27 061200 162716 000010 SUB #10, (SP) ‘RESTORE SP TO NO ERROR 

228 061204 00024 NOP 


Ci 
cc 
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229 061206 

232 061 032737 006200 
233 061214 001512 

234 

235 

236 061 032737 000200 
237 06 001424 

238 061226 013737 001376 
239 0612 7 


8 
279 061442 032737 054000 
001527 


282 061452 032737 040000 
001427 

284 462 032737 000200 

285 061470 001023 


150$: 
;LOOK FOR ‘LSC’’ OR ‘LBC’’ OR "DVC'’ IN ERROR REGISTER #2 
001376 BIT #LSC!LBC!DVC,RMER2I 
BEQ 180$ ZNO ERRORS SET 
;REPORT ANY DEVICE FAULT, I.E., Ai = 
001376 BT #DVCRMER2I pve" = 12? 
001140 MOV RMER2I , SGDDAT ENPECTED STATUS 
001140 BIC #DVC, $GDDAT 
001142 MOV R21, $8D :RECEIVED STATUS 
ADD #4, (SPS ‘MOVE SP TO USERS ERROR 
000000 MOVB #310, a(SP) [WRITE ERROR NUMBER IN CALL 
Pp :MOVE SP_TO RETURN IF ERROR 


SUB 

JSR Pe -a(SP)+ 
SUB #10, (SP) 
NOP 


;REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


160$: 
;REPORT LOSS OF BIT CLOCK, I.E.; ‘LBC’ = 1, IF ‘MOL'' = 1 
001376 BT #LBC .RMERCI 21S LBC sett 
001346 iT MOL RMDSI ZMAS Bc ERROR BY MOL = 0 
001140 MOV RMER21,$GDDAT EXPECTED STATUS 
001140 BIC #LBC, $GDDAT 
001142 MOV RMER2I,$BDDAT  ;RECEIVED STATUS 
ADD SPJ [MOVE SP TO USER'S ERROR CALL 
000000 MOVB #311,a(SP) : NUMBER IN CALL 
SUB 2, ;MOVE SP_TO RETURN IF ERROR 
JSR PC.a(SP)+ “REPORT ERROR AND RETURN 
SUB #10, (SP) SRESTORE SP TO NO ERROR 
170$: 
;REPORT LOS OF SYSTEM CLOCK, I. Es ‘LSC’ = 
001376 BIT #LSC RMERZI $ "LSC = "0 
001140 MOV RMER21 , SGDDAT ENPECTED STATUS 
001140 BIC #LSC, $GDDAT 
001142 MOV R21, $BD ;RECEIVED STATUS 
ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
000000 MOVB «#312, a(SP) WRIT NUMBER 
JSR PC, a(SP)+ ‘REPORT ERROR AND RETURN 
SUB #10, (SP) [RESTORE SP TO NO ERROR 
180$: 
;LOOK FOR "UNS" OR ‘DTE'’ OR 'WLE’' IN ERROR REGISTER #1 
001350 BIT PUNS "DYE !ULE, RMER1I 
20$ :NO BITS SET 
;REPORT PUN" ERROR IF "DVC’' = 0° 
001350 gir #UNS , RMER1 I iI‘ UNS"* SET?? 
001376 BIT #DVC,RMER21 [WAS "UNS'’ CAUSED BY ‘DVC''?? 
BNE 190$ YES! ! 


SEQ 0247 


Ci 
B] 





286 061472 
287 061500 
288 061506 
289 061514 
290 0615 
291 061526 
292 061532 
293 061534 
540 


& 


ERBSS 


RERBRSRRRRE 
Buy 


AXXO 


SESS R aS SS SEI Rae 


a 
= 
Oo 


WWWAWAWAA 
ed ed cad ed ad cd aed ed ed od 
WONAULSWN—O 


8 
RRRRRERREEE 


SRENIRESO RRS 


x 


ie 


061: 
341 061/64 
342 061 73 


013737 


37 
162716 


013737 
042737 
022737 
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001350 
040000 
001350 


000004 
000313 
000002 


000010 


010000 
001350 
010000 
001350 
000004 


000314 
000002 


000010 


001410 
177700 
000063 
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MOV RMER11 , $GDDAT 
BIC #UNS , SGDDAT 
MOV RMER1I, $BDDAT 
ADD #4, (SPS 

MOVB asi. a(SP) 
SUB 


JSR pe *Stsp)+ 
SUB #10, (SP) 


190$: 

;REPORT ANY DRIVE TIMING ERROR, 
BIT #OTE,RMERTI 
BEQ $ 
MOV RMER11,$GDDAT 
BIC ADTE, SGDDAT 
MOV RMER1I , SBDDAT 
ADD #4, (SPS 
MOVB #314,a(SP) 
SUB #2, (SP 
JSR PC 4a(SP)+ 
SUB #10, ( 


200$: 


;REPORT AN ERROR IF WRITE LOCK ERROR IS 7s 
[WRITE ee OR IF RM WAS WAS NOT 


IT ° 
BEQ 
MOV RMER11 , $BDDAT 
V RMER11 , $GDDAT 
BIS MLE, SGDDAT 
ADD . (SP) 


MOVB #315,a(SP) 
BIT MWRL ,.RMDSI 
BEQ 


05$ 
BIT 7 cia 


BE 
205$: MOVB #316,a(SP) 
BIC PALE SGDDAT 
210$: SUB 
JSR pe atsP)+ 
SUB #10, (SP) 


1.€., 
:TS OTE SET?? 


[EXPECTED STATUS 


sEXPECTED STATUS 


mo STATUS 
;MOVE SP TO USERS ERROR CALL 
RROR_ NUMBER 


MOVE SP_TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
;RESTORE SP TO NO ERROR 


*DTE'' = 1 


RECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 
TE ERROR NUMBER IN CALL 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

;MOVE SP TO NO ERROR 


SEE IF DRIVE IS NOT 
WRITE 


Mae" SET?? 


TRE cE IVED STATUS 
sEXPECTED STATUS 


MOVE SP TO USERS ERROR CALL 


WRITE ERROR NUMBER IN 


CALL 
2 WAS , DRIVE WRITE PROTECTED?? 


:MAS'comMAND A WRITE?? 
[CHANGE ERROR NUMBER 


MOVE SP_TO RETURN IF ERROR 
T ERROR AND RETURN 
;MOVE SP TO NO ERROR 


OMIT DATA ERROR Pos IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 
AD (SP) 2MOVE RROR 


2208: 
D #6, 
TSTB. sa SP) 
BEQ 225$ 
SUB #4, (SP) 
JMP 340$ 
225$: SUB #4, (SP) 


SP TO USER'S E 
—_ _ERROR DETECTED?? 
‘REST ~- DO DATA CHECKS 


ORE SP 
SKIP DATA CHECKS 
RESTORE SP 


:CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND 
i IF =e COMPARE IS NOT INHIBITED 


RMCS10 0.9108 
“it4 acENCASK 
CMP or SK 6g 


STRIP AND STORE FUNCTION CODE 


WAS FUNCTION WRITE HEADER & DATA?? 


SEQ 0248 
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SRILSSISSSSSSERBessIsy 
RRRRRRE | -RRRRRRRRRR OR 
PEVREES PVSBSHITSy BY 


98 062272 
399 062276 


092759 
001106 


032737 
001533 


Ont 35 
2 
013737 


013737 


002000 


000620 


E 
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001366 


SEE IF 


;REPORT 


BEQ 250$ ;YES = SKIP HEADER CHECKS 
BIT #HCI ,RMOF I ;WAS HCI SET? 
BNE 250$ : :YES = SKIP HEADER CHECKS 


ANY HEADER ERRORS ARE SET, I.E., ‘FER’ OR ‘HCRC'’ OR ‘HCE’ 
BIT WHCRC! FER! HCE ,RMERTI 


BEQ 2708 =n. ERRORS SET 
HEADER CRC ERROR IF SET 
ore #HCRC ,RMERTI sWAS HCRC SET?? 


2 =NO!! 
MOV RMERTI SGDDAT [EXPECTED STATUS 
BI c C,$GDDAT 


ROE RS 1, SBDDAT RECEIVED STATUS 
ADD #4, ( As MOVE SP TO USERS ERROR 
MOVB #317,a(SP) [WRITE ERROR NUMBER 
#2, (SP) [MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ SREPORT ERROR AND RETURN 
260$ 
230$: 
;REPORT FORMAT ERROR IF SET 
BIT #FER,RMERTI :WAS ‘FER'' SET?? 
BEQ 240$ NO! ! 
RMER11,$GDDAT EXPECTED STATUS 
BIC #FER,SGDDAT 
MOV RMERII,$BDDAT  ;RECEIVED STATUS 
ADD #4, (SP) ;MOVE SP TO USERS ERROR 
MOVB #320,a(SP) TE ERROR NUMBER 
SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
JSR PC. a(SP)+ [REPORT ERROR AND RETURN 
260$ 
2408: 
; REPORT 


550s: 


HEADER COMPARE ERROR IF SET 
BIT HCE .RMER1I ZWAS ‘HCE’ SET?? 
MOV RMER11,$GDDAT {EXPECTED STATUS 
BIC WHCE , SGDDAT 


RMERII,$BDDAT ;RECEIVED STATUS 
4, (SPS :MOVE SP TO USER'S ERROR 
“WRITE ERROR 


MOVB #321,a(SP) WRIT NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
JSR BC .a(SP)+ [REPORT ERROR AND RETURN 


BR 2 
: THERE SHOULD BE NO HEADER ERRORS BECAUSE 
OMMAND WAS 


-C WRITE HEADER AND DATA, OR 
HEADER COMPARE INHIBIT WAS SET 
BIT MHCE! FER! HCRC,,RMERTI 
BEQ 2708 NO ERRORS WERE SET 
MOV RMER1I,$GDDAT _— ; EXPECTED STATUS 
BIC MHCE! FER! HCRC,$GDDAT 
MOV reget SBDDAT ;RECEIVED STATUS 


ADD #4, (SP [MOVE SP TO USER'S ERROR CALL 
MOVB #320 a(sP) [WRITE ERROR NUMBER 
SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 


JSR PC,a(SP)+ :REPORT ERROR AND RETURN 


SEQ 0249 


C2 








162716 
000137 


032737 
001002 
000137 


032737 


032737 
001406 
162716 


000410 
112776 
162716 


004736 
162716 


032737 


032737 
001423 
013737 
042737 
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000010 
062750 
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063340 


001346 


001140 
001140 


260$: 


2708: 


:1F COMMAND 
;D0 oat + mews CHECKS 


275$: 
sREPORT 


;D0 NOT 


276$: 
280$: 


2908: 
REPORT 


300$: 
310$: 


SUB #10, (SP) :MOVE SP TO NO ERROR 
JMP 340$ SOMIT FURTHER DATA CHECKS 


WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE 


py 25108 sWAS THIS A WRITE COMMAND? 


BNE 


JMP 310$ :GO DO WRITE STATUS CHECK 

DATA CHECK IF SET 

BT #OCK,RMER1I :DATA CHECK ERROR?? 
RMER1I1,$GDDAT EXPECTED STATUS 

BIC #DCK, $GDDAT 

MOV Ril,$BDDAT  ;RECEIVED STATUS 

ADD (SPJ [MOVE SP TO USER'S ERROR 

MOVB  4#323,a(SP) WRITE ERROR 

BIT ECI. I zWAS |e ECC CORRECTION DISABLED?? 

Move #524 ,@(SP) = CHANGE TO RECOVERABLE ERROR 


ils ¢ ERROR RECOVERABLE ?? 


BNE 
REPORT ee ERROR’ IF READ COMMAND 
BIT #B1T4,510$ eWAS | THIS A READ COMMAND ?? 
BEQ 2 NO ! 
SUB M4, (SP) RESTORE SP 
BR SKIP ERROR - DATA WILL BE CORRECTED 
MOVB #325 ,a(SP) [CHANGE TO NON RECOVERABLE 
SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
JSR PC ,a(SP)+ REPORT ERROR AND RETURN 


SUB #10, (SP) ‘RESTORE SP TO NO ERROR 


DATA BUS PARITY ERROR IF SET. 1.€., MDPE = 1 
BT WMDPE . /RMCS21 ARI TY ERROR SET?? 

MOV RMCS21,$GDDAT EXPECTED STATUS 

BIC #MDPE , $GDDAT 

MOV Recsei SBDDAT ZRECEIVED STATUS 

ADD [MOVE SP TO USER'S ERROR 
MOVB A306, a(SP) :WRITE ERROR NUMBER 

SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
JSR PC a(SP)+ ?REPORT pERROR AND AND RETURN 
SUB #10, (SP) [MOVE SP TO NO ERROR 

JMP 340$ SSKIP ORI TE STATUS CHECK 


TEST TO SEE THAT OFFSET MODE WAS ei ag ERROR IF ‘OM’ 
BIT #0M ,RMDS I SET 


i1S OFF 


BEQ 320 ;NO 
MOV RMDSI ,$GDDAT SEXPECTED STATUS 


BIC #0M, $GDDAT 


SEQ 0250 
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457 062562 013737 001346 001142 MOV RDS! . SBDDAT _; RECEIVED STATUS 
8 062570 062716 000004 ADD (SP) ‘MOVE SP TO USER'S ERROR CALL 
459 062574 112776 000327 000000 MOVB 4359" a(SP) TE ERROR R_IN CALL 
062602 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
062 004736 JSR PC. a(SP)+ ‘REPORT ERROR AND RETURN 
062610 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 
463 062614 320$: 
; TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF ‘'DPE'' = 1 
466 062614 032737 000010 001376 BIT #DPE ,RMER21 ZDATA PARITY ERROR?? 
7 062622 00142 BEQ NO! ! 
062624 013737 001376 001140 MOV RMER2I,$GDDAT EXPECTED STATUS 
469 062632 042737 000010 001140 BIC #DPE , $SGDDAT 
062640 013737 001376 001142 MOV RMERCI,$BDDAT  ;RECEIVED STATUS 
471 062646 716 000004 ADD #4, (SPS “MOVE SP TO USER'S ERROR CALL 
472 062652 112776 000330 000000 MOVB 4350° a(SP) ‘WRITE ERROR NUMBER 
062 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
474 062664 0047 JSR PC asp) [REPORT ERROR AND RETURN 
475 062 162716 000010 SUB #10, ( :MOVE SP TO NO ERROR 
476 062672 330$: 
;TEST FOR WRITE CLOCK FAILURE; REPORT ERROR ie "WCF’’ = 1 
479 062672 032737 000040 001350 BIT MCF ,RMERTI :1S "WCF'’ SET?? 
480 062700 00142 BEQ 40$ 
481 062702 013737 001350 001140 MOV RMER11,$GDDAT <ENPECTED STATUS 
062710 04273 001140 BIC MCF, SGDDAT 
483 062716 013737 601350 001142 MOV MERI I SBDDAT  ;RECEIVED STATUS 
062724 06271 ADD SPS [MOVE SP TO USERS ERROR CALL 
485 062730 112776 000331 000000 MOVB a3 a(SP) [WRITE ERROR NUMBER 
062736 162716 000002 SUB SP) [MOVE SP TO RETURN IF ERROR 
487 062742 0047 JSR Pc “a(SP)+ ;REPORT ERROR AND RETURN 
062744 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR 
489 062750 340$: 
;REPORT ae LATE’’ ERROR IF ‘DLT’ = 
492 062750 032737 100000 001344 LT, RMCS21 :1S, DLT" SET?? 
062756 00142 BeO 
494 062760 013737 001344 001140 MOV RMCS21,$GDDAT EXPECTED STATUS 
495 062766 042737 1 001140 BIC #DL A 
496 062774 013737 001344 001142 MOV RMCSeI SBDDAT  ;RECEIVED STATUS 
497 063002 71 ADD (SPS ‘MOVE SP TO USERS ERROR CALL 
498 063006 112776 000332 000000 MOVB 4355. a(sP) ‘WRITE ERROR NUMBER 
499 063014 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
063020 7 JSR PC. a(SP)+ [REPORT ERROR AND RETURN 
501 063022 162716 000010 #10, (SP) *MOVE SP TO NO ERROR 
502 063026 350S: 
503 ;LOOK FOR R UNEXPECTED CHANGES IN DRIVE STATUS 
504 063026 013746 1346 1,-(SP) :STACK DRIVE STATUS 
505 063032 042716 147677 Bie #°C<PIP'MOL'VV>, (SP) :CLEAR DONT CARES 
063036 022726 010100 CMP WMOL'VV.(SP)+ °:IS DRIVE STATUS OK?? 
307 063042 001522 BEQ 380$ YES! ! 
:REPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 
510 [1.£, PIP = 1 AND SKI = 
511 06 032737 020000 001346 BIT #PIP,RMDSI :1S ‘PIP’ SET?? 
512 063052 001430 BEQ 360$ NO! ! 
513 063054 032737 040000 001376 BIT #SK1,RMER21 [WAS "‘SKI'' ERROR REPORTED?? 





SEQ 0251 


Ci 
S¢ 
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BATA TRANSFER COMMAND STATUS CHECK SUBROUTINE SEQ 0252 
514 063062 001024 BNE 360$ :YES=DONT REPORT PIP 
515 063064 013737 001346 001140 MOV RMDSI,$GDDAT EXPECTED STATUS 
516 063072 042737 020000 001140 BIC #PIP, $GDDAT 
517 063100 013737 001346 001142 MOV RMDSI,$B8DDAT  ; RECEIVED STATUS 
518 063106 062716 ADD #4, (SP) :MOVE SP TO USERS ERROR CALL 
519 063112 112776 000333 000000 MOVB #333,a(SP) SWRITE ERROR NUMBER 
520 063120 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
521 063124 004736 JSR PC-a(SP)+ [REPORT ERROR AND RETURN 
522 063126 162716 000010 SUB #10, (SP) :MOVE SP TO NO ERROR 
523 063132 000240 
324 063134 360$: 
526 :REPORT ERROR IF MEDIUM IS NOT ON LINE AND OPI ERROR WAS NOT 
527 TREPORTED, I.£., MOL = OPI = 0 
528 063134 032737 010000 001346 BIT #MOL .RMDSI 1S MEDIUM ON LINE?? 
529 063142 001027 BNE 370: 
530 063144 032737 020000 001350 BIT #OP1,RMER1I suas: OPI ERROR REPORTED?? 
531 063152 001023 BNE 370$ YES! ! 
532 063154 013737 001346 001140 MOV RMDSI,$GDDAT <ENBECTED STATUS 
533 063162 052737 010000 001140 BIS #MOL . $GDDAT 
534 063170 013737 001346 001142 MOV RMDS |, $BDDAT RECEIVED STATUS 
535 063176 062716 000004 ADD #4, (SP) “MOVE S a USER'S ERROR 
536 063202 112776 000334 000000 MOVB #334,a(SP) *WRITE SERR OR NUMBER 
537 063210 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN IF ERROR 
538 063214 004736 JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 
539 063216 162716 000010 SUB #10, (SP) [MOVE SP TO NO ER ERROR 
340 06322 370$: 
542 ;REPORT ERROR IF VOL UME IS NOT VALID AND “‘IVC’’ ERROR WAS NOT 
543 TREPORTED, I.E. Ivc = 0 
544 063222 032737 000100 001346 BIT WV .RMDSI i1S VOLUME VALID?? 
545 063230 001027 BNE 
063232 032737 010000 001376 BIT #IVC,.RMER2I suas: ive ERROR REPORTED?? 
547 063240 001033 BNE 390$ YES! ! 
063242 013737 001346 001140 MOV RMDSI,$GDDAT EXPECTED STATUS 
549 063250 052737 100 001140 BIS #VV,$GDDAT 
550 063256 013737 001346 001142 MOV RMDSI,$BDDAT — ;RECEIVED STATUS 
551 06. 062716 ADD # [MOVE SP TO USERS ERROR CALL 
55 112776 000335 000000 MOVB #335,a(SP) [WRITE ERROR NUMBER 
553 063276 162716 000002 SUB #2, (SP) :MOVE SP_TO RETURN IF ERROR 
554 063302 004736 JSR PC. a(SP)+ “REPORT ERROR AND RETURN 
555 063304 162716 000010 #10, (SP) [MOVE SP TO NO ERROR 
356 0633 380$: 
558 ;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 
559 063310 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 
560 063314 105776 000000 TSTB =. (SP) ZANY ERROR?? 
1 063 001403 BEQ 390$ NO! ! 
562 063322 062716 000004 ADD #4, (SP) ‘YES - MOVE SP TO ERROR RETURN 
563 063326 000402 BR 400$ 
1 063330 162716 000004 390$: SUB #4, (SP) ;MOVE SP TO NO ERROR RETURN 
566 063334 000207 400$: RTS PC ;RETURN TO USER 
568 063336 000000 500$:  .WORD ;ERROR FLAGS 
000000 510$: = WORD S TEMPORARY STORAGE 


I 4 
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1 .SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 
3 ;THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
4 ZSTATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
5 :CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
;SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 
8 ; THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
16 : IF TRUE: 
11 = 0, INDICATES DRIVE WENT OFFLINE, NOTE 
12 {THAT MOL TS ASSUMED TO HAVE BEEN SET 
13 : .VV = 0, INDICATES THE DRIVE LOST VOLUME VALID 
14 : “PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 
15 ; “SKI = 1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
16 : -DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 
18 ;THE SUBROUTINE IS CALLED ASTER STORING STATUS IN THE GET BUFFER. 
20 :(1) JSR PC,STCDRVSTS 
21 : BR 222 RETURN HERE IF NO ERROR 
22 : NOP RETURN HERE TO REPORT AN ERROR 
23 : ERROR ERROR NUMBER DEFINED BY SLB 
24 ; JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
25 : 22? RETURN HERE IF NO MORE ERRORS 
37 063342 STCDRVSTS: 
29 ZCLEAR USER'S ERROR CALL 
30 063342 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
31 063346 105076 000000 CLRB = a SP) 7CLEAR ERROR NUMBER 
32 063352 162716 000004 SUB #4, (SP) ‘MOVE SP BACK TO NO ERROR RETURN 
33 ySEE IF "MOL'' = "VV" = 1, AND ‘PIP’ = 
34 063356 013746 001346 MOV RMDSI,-(SP) :PUT DRIVE STATUS ON STACK 
35 063362 042716 147677 BIC #*C<PIP!MOL !Vv>, ( 
36 063366 022726 010100 CMP #MOL'VV.(SP)+ “;ARE MOL,VV AND PIP 0.Kk.?? 
37 063372 001524 BEQ 30$ YES! ! 
39 ;REPORT AN ERROR IF MOL = ° AND ‘OPI'' = 0 
40 063374 032737 010000 001346 BIT #MOL .RMDSI 1S MOL ON ?? 
41 063402 001030 BNE 10$ YES! ! 
42 063404 032737 020000 001350 BIT #OP1,RMER11 [WAS "OPI" SET?? 
43 063412 001024 BNE 10$ [YES-DONT REPORT 'MOL"’ = 0 
44 063414 013737 001346 001140 MOV RMDSI,$GDDAT  :EXPECTED STATUS 
45 063422 052737 010000 001140 BIS AMOL , $GDDAT 
46 063430 013737 001346 001142 MOV RMDSI . SBDDAT ; RECEIVED STATUS 
47 063436 062716 000004 ADD (SP) [MOVE SP TO USER'S ERROR CALL 
2 112776 000207 000000 MOVB 4269" a(SP) ‘WRITE ERROR NUMBER IN CALL 
49 063450 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN | FOR ERROR 
50 063454 004736 JSR PC’ a(SP)+ REPORT ERROR VIA USER 
51 063456 162716 000010 SUB #10, (SP) [MOVE SP BACK TO NO ERROR RETURN 
52 063462 000240 NOP 
33 063464 10$: 
REPORT AN ERROR IF VOLUME VALID IS NOW ZERO AND ‘‘IvC’* = 0 
032737 000100 001346 BIT #VV,RMDSI 51S "W'' = 02? 


56 063464 . : 
57 063472 001030 BNE 20$ :NO 








58 063474 
59 063502 
504 


ASSELEALARLS 


94 063656 
3664 


ae 


9 
92 
93 
95 
96 
9 
98 702 
99 063710 
100 063714 
101 063722 
102 063726 
103 063730 
104 063734 
105 063736 
106 
107 
108 063736 
109 063744 
110 063746 
111 063754 
112 063762 
113 063770 
114 063774 


Sseray 
001 


062716 
112776 
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010000 
001346 
000100 
001346 
000210 
000002 


000010 


001376 
137577 


4 
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001376 
001140 
001346 
001142 
000000 


20$: 
;REPORT 


30$: 
sSEE IF 


40$: 
;REPORT 


50$: 
;REPORT 


BIT #IVC,RMER21 : WAS *‘IVC’* SET?? 


BNE 20$ :YES=DONT REPORT ‘Vv'' = 0 
Moy RMS! SGDDAT SEXPECTED STATUS 

MOV RMDSI,$BDDAT  §;RECEIVED STATUS 

ADD #4, (SP “MOVE SP TO USER'S ERROR CALL 
MOVB #210,a(SP) [WRITE ERROR NUMBER IN CALL 
SUB aA ‘MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ [REPORT ERROR VIA USER 


sue #10, (SP) sMOVE SP BACK TO NO ERROR 


AN_ERROR IF DRIVE IS OFF BY ey AND *'SKI 
BIT #P 


BT IP,RMDS! iis 2 DRIVE OFF CYLINDERS? 
BIT #SK1,RMER21 TWAS "'SKI'' SET?? 

BNE 30$ SYES-DONT REPORT ‘PIP’ = 1 

MOV RMDSI.$GDDAT _: EXPECTED STATUS 

BIC APIP, $GDDAT 

MOV DSI SBDDAT —: RECEIVED STATUS 

ADD 4, (SP) [MOVE SP TO USER'S ERROR CALL 
MOVB mil a(SP) :WRITE ERROR NUMBER IN USER'S CALL 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 

JSR PC a(sP)+ [REPORT ERROR VIA USER 

sue #10, ( [MOVE SP TO NO ERROR RETURN 


"SKI'' = 'DVC'' = 0 
MOV RMER21 ,=-(SP) :PUT ERROR REG 2 ON STACK 
BIC #°C<SKI!DVC>, (SPS + 


BEQ 60$ BRANCH IF NO ERROR 


AN ERROR IF THERE IS A DEVICE FAULT 
BIT #DVC .RMER21 


at sANY DEVICE FAULT?? 
MOV RMER21 , SGDDAT EXPECTED STATUS 
BIC #DVC,$ 

MO RME 


Vv R ;RECEIVED STATUS 
ADD #4, (SPS : P TO USER'S CALL 

MOVB #212,a(SP) R IN CALL 
SUB #2, (SP [MOVE SP TO RETURN FOR ERROR 
JSR PC 5a(SP)+ SREPORT ERROR VI 

sus #10, ( [MOVE SP BACK TO NO ERROR 


AN ERROR IF ‘'SKI** = 1 


BT #skI, 1,RMER21 :1S THERE A SEEK INCOMPLETE ERROR 

MOV RMER21,$GDDAT [EXPECTED STATUS 

BIC #SKI.$GDDAT 

MOV RMERDT $BDDAT  ;RECEIVED STATUS 

ADD a Bs ‘MOVE SP TO USER'S ERROR CALL 

MOVB #213,a(SP) ZWRITE ERROR NUMBER IN USER'S ERROR CALL 


SEQ 0254 


C2 
TT 
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STATIC DRIVE STATUS CHECK SUBROUTINE SEQ 0255 
115 064002 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
116 064006 004736 JSR PC. a(SP)+ sREPORT ERROR VIA USER 
117 064010 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
118 064014 000240 NOP 
19 064016 60S: 
121 sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
122 064016 062716 000004 ADD #4, (SP) MoV E SP_TO USER'S ERROR CALL 
123 064022 105776 000000 TSTB = @( SP) WAS AN ERROR DETECTED?? 
124 064026 001403 BEQ 70$ 
125 064030 062716 000004 ADD #4, (SP) ai - MOVE SP TO USER'S ERROR RETURN 
126 064034 000402 BR 
127 064036 162716 000004 70$: SUB #4,(SP) zNO - MOVE SP TO NO ERROR RETURN 
128 064042 000240 80$: NOP 
129 064044 000207 RTS PC ;RETURN TO USER 


C2 
TI 


Sf BER RERRERE 8 


ee et 
SEE Nu-— 


w 
Rx 


012746 
012746 
000002 


000240 


012746 
012746 
000002 


012737 
000002 


CZRMOAO RMOS/3/2 FCTNL TST es 
STOP AND SHUTDOWN SUBROUTI 


000140 
064060 


000300 
064074 


001326 
007764 
000042 


064124 — 


005420 
037460 


177777 001326 SHUT2: 


4 
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-SBTTL STOP AND SHUTDOWN SUBROUTINES 


STOP: 


:DROP PRIORITY TO ALLOW CONSOLE pelt 
MOV #PR3,-(SP) 


64$: 


MOV 
RTI 


NOP 


#64$ ,-(SP) 


T NEW PS ON STACK 
PUT NEW PC ON STACK 
3sPOP NEW PC AND PS 


:RAISE — TO INHIBIT CONSOLE INTERRUPT 
#PR6,-(SP) 3PU 


5$: 


3765$: 


64$: 
10$: 


TYPE 
BR 
-ASCIZ 


JMP 
JMP 


MOV 
RTI 


#65$,-(SP) 


START 
$SEOP 


#-1,CTLFG 


T NEW PS ON STACK 
:IPUT NEW PC ON STACK 
:sPOP NEW PC AND PS 


: CONT INUE 

sHALT ? 

:BR IF YES 

: CONTINUE 

ZANY MONITOR PRESENT ? 

BR IF YES 

ii TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


6 
<CRLF><O7>/TEST HALTED/<CRLF> 


:GO_ TO START 
;RETURN CONTROL TO MONITOR 


SET THE CONTROL-C FLAG 
EXIT FROM INTERRUPT 


SEQ 0256 


71 





CZRMOAO RMOS/3/2 FCTNL TST ne 
SAVE AND RESTORE RO=R5 ROUT! 


1 





a 
SANSKEF 


010146 
016601 
000261 


M 4 
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~SBTTL SAVE AND RESTORE RO=-R5 ROUTINES 


FERRARA REAR KEERRERERERREE EE 


et, RO=-R5 

 eTOP==-(+16) 

3* +2=---(+18) 

z* +4==-R5 

a +6=--R4 

3 *+10---R2 

3*+12---R1 

3*+14---R0 

SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

7 *RESTORE RO-RS 

:*CALL: 

3* RESREG 

SRESREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
wy 


RO,~(SP) 


R5,-(SP) 

22(SP) ,=(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,=(SP) 


(SP)+,22(SP) 


(SP)+, *RO 


SAVREG 
; UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


3zPUSH RO ON STACK 
7zPUSH R1 ON STACK 
32PUSH R2 ON STACK 
32PUSH R3 ON STACK 
3a R4 ON STACK 
3zPUSH RS ON STACK 
3z:SAVE PS OF MAIN FLOW 
is VE PC OF MAIN FLOW 


2sSAVE PC OF CALL 


2 sRESTORE PC OF CALL 


2sPOP STACK INTO R1 
2sPOP STACK INTO RO 


RTI 
-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


5 FERRARA ARERERAEEEEEEEEEEEREERREKEEREREREREEEEEEEEREREREEKEKE 


2*THIS ROUTINE IS USED TO an ton tte 16-BIT BINARY NUMBER TO A 16-B1T 


:* MOV 

hd TYPBN 

STYPBN: MOV 
MOV 
SEC 


; *BINARY~ASCII NUMBER AND 
;*CALL: 
NUMBER , ~ (SP) 


R1,~(SP) 
6(SP) ,R1 


7 NUMBER TO BE TYPED 
si TYPE IT 
77SAVE R1 ON THE STACK 
3:GET THE INPUT NUMBER 
72:SET ‘'C’' SO CAN KEEP TRACK OF THE NUMBER OF BITS 


Ci 
RE 





000060 064332 1$: 


RMOAO_RMOS/3/2 FCTNL TST 3 

BINARY TO ASCII AND TYPE ROUTI 
064270 112737 
064276 006101 
0643500 001406 
064302 105557 064332 
064306 104401 0643352 
064312 000241 
064314 000765 
064316 012601 
064320 016666 000002 
064326 012616 
064330 
064332 000 





020200 
000020 


000055 
064550 
000040 


064540 


000001 
000060 
000040 


000010 


000001 


177777 


2$: 


#'0,$8IN 
R1 


2$ 
$BIN 
-$BIN 


(SP)+,R1 
2(SP) ,4(SP) 
(SP) +, (SP) 


N 4 
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33SET ere Hh TO AN ASCII ‘0"’. 
23GET THIS BIT 


at a T THE CHARACTER EQUAL TO THIS BIT 
TICLEAR ''C’’ SO CAN KEEP TRACK OF BITS 
- xT BIT 


S ADJUST THE STACK 


¢ ¢RETURN TO USER 
ORAGE FOR ASCII CHAR. AND TERMINATOR 


$BIN -BYTE 0,0 T 
“SBTTL CONVERT BINARY TO DECIMAL’ AND TYPE ROUTINE 


FARRAR AAAREAERAEREEKREREREKEREERAEREEREKEERREEREKEEEREEEREEREEEREEE 


:RTHIS ROUTINE IS USED TO CHANGE A weir BINARY NUMBER TO A 5-DIGIT 
; *SIGNED DECIMAL (ASCII) NUMBER AND T ° NDING ON THER_THE 


+ BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


STYPDS: 


MOV 
TYPDS 


 *REPLACED WITH SPACES. 
ALL: 


NUM, -(SP) 


RO,~(SP) 


1(¢sP) -1(R3) 
#°0,R2 


Re (aS 
RO,410 





:zPUT_THE BINARY NUMBER ON THE STACK 
2:2GO TO THE ROUTINE 


3=PUSH RO ON STACK 
3sPUSH R1 ON STACK 


SIGET THE NUMBER 
:-BR IF T IS POS. 
2sMAKE THE BINARY NUMBER POS. 
2 sMAKE ASCII NUMBER NEG. 
32ZERO THE CONSTANTS INDEX 

2 SET OUT POIN 


s THE PUT TER 
7ZSET THE FIRST CHARACTER TO A BLANK 
23 CLEAR THE BCD NUMBER 


THE CONSTANT 
22FORM. THIS BCD DIGIT 
37 INCREASE THE BCD DIGIT BY 1 


32ADD BACK THE CONSTANT 
13 CHECK IF BCD DIGIT=0 


FALL THROUGH IF 
STILL DOING LEADING 0°S? 
; ;BR YES 


3PUT_TH 
$I JUST INCREMEN TIN 
7:CHECK THE TABLE INDEX 


SEQ 0258 


[ 


CZ 





CZRMOAO aa te FCTNL TST 3 


CONVERT 


eft 


g8988 
SENCRSONA 


ReSNSa. 


rs 


SSS SSS SESS 
EE 


vin 
we 
on 


ae 
Ro 


Moron 
N 


Re 


46 


177777 =(177776 


064550 
000002 


000001 
000006 
000005 


5 
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O DECIMAL AND TYPE ROUTI 


002746 
00 


017646 
116637 
112637 


BLT 2$ 3:GO DO THE NEXT DIGIT 


BGT 8$ +:G0 TO EXIT 
MOV R5,R2 33GET THE LSD 
BR 6$ CHANGE TO ASCII 
8$: TSTB 3s (SP) + ; sWAS THE LSD THE FIRST NON-ZERO? 
BPL ::BR IF NO ‘ 
=1(SP),-2(R3) 3: YES==SET THE SIGN FOR TYPING 
CLRB ~—- (R3) ::SET THE TERMINATOR 
MOV (SP)+,R5 ::POP STACK INTO RS 
MOV (SP)+.R3 ::POP STACK INTO R3 
MOV (SP)+>R ::POP STACK INTO R2 
MOV (SP)+-R1 ::POP STACK INTO R1 
MOV (SP) +-RO ::POP STACK INTO RO 
TYPE $DBLK [NOW TYPE THE NUMBER 
MOV 3(SP) ,4(SP) S:ADJUST THE STACK 
MOV (SP)+, (SP) 
RTI ::RETURN TO USER 
$DTBL: 10000. 
1000. 
100. 
10. 


$DBLK: .BLK 4 
*SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Petit iii iii tii rit it it titi tit itititti titi tt tt; 

:*THIS ROUTINE IS USED TO one A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

: #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


3* MOV NUM, -(SP) 7 NUMBER TO BE TYPED 

;* TYPOS 3:CALL FOR TYPEOUT 

7* -BYTE WN :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* -BYTE M 7 7M=1 OR 0 

7* 31=TYPE LEADING ZEROS 

:* : 0=SUPPRESS LEADING ZEROS 


:*STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 


>*CALL: 


ie MOV NUM, = (SP) : NUMBER TO BE TYPED 
i* TYPON S:CALL FOR TYPEOUT 
ze 

; *$TYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
:* | MOV NUM, -(SP) :NUMBER TO BE TYPED 
* TYPOC SZCALL FOR TYPEOUT 


$TYPOS: MOV a(SP) ,-(SP) 2 ¢PICKUP THE MODE 
MOVB 1(SP) , SOF ILL sel LOAD ZERO FILL SWITCH 
MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 


ADD #2, (SP) ADJUST RETURN ADDRESS 
BR $TYPON 
$STYPOC: MOVB #1,$0F ILL a THE ZERO FILL SWITCH 
MOVB #6, SOMODE +1 2sSET FOR SIX(6) DIGITS 
$TYPON: MOVB #5 ,SOCNT SET THE ITERATION COUNT 


MOV R3,-(SP) SAVE R3 
MOV R4,-(SP) 77 SAVE R4 


SEQ 0259 | 


| 
| 
| 


2o 
















CZRMOAO wanue, asrit yu 3 
BINARY TO OCTAL (ASCII) 


E: .WORD 
-SBTTL TYPE ROUTINE 


SRA EREREREEREEEREREREREERERREREREREREREREKEKKKEEK 


: FROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 it 


- 
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064632 010546 MOV R5,-(SP) Z:SAVE RS 
064634 113704 065005 MOVB  $OMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
064640 005404 NEG 4 
064642 062704 000006 ADD #6 RG i SUBTRACT IT FOR MAX. ALLOWED 
064646 110437 065004 MOVB RG. i 3 SAVE IT FOR USE 
064652 113704 065003 MOVB SOF ILL, RG T THE ZERO FILL SWITCH 
064656 016605 000012 MOV 12(SP) RS te UP THE INPUT NUMBER 
064662 005003 CLR R3 3: CLEAR THE OUTPUT WORD 
064664 006105 1$: ROL R5 ::ROTATE MSB INTO ‘'C 
064666 000404 BR 3$ 7:60 DO MSB 
064670 006105 2s: ROL RS ::FORM THIS DIGIT 
064672 00610 ROL R5 
064674 00610 ROL RS 
064676 010503 MOV R5,R3 
064700 0061 3$: ROL R3 :GET LSB OF THIS DIGIT 
064702 105337 065004 DECB  $OMODE :iTYPE THIS DIGIT? 
064706 100016 BPL 7$ F NO 
064710 042703 177770 BIC #177770,R3 3661 RID OF JUNK 
064714 001002 BNE 4$ TEST FOR 
064716 005 TST R4 +: SUPPRESS THIS 0? 
064720 001403 BEQ 5 ::BR IF YES 
064722 0052 4$: INC R4 [:DON'T SUPPRESS ANYMORE 0°S 
064724 052703 000060 BIS #°0,R3 7:MAKE THIS DIGIT ASCII 
064 052703 000040 5$: BIS #"  R3 7 MAKE + vee NOT ALREADY 
064 110337 065000 MOVB = R3, 8S ;3SAVE FOR TYPING 
064740 104401 065000 TYPE B$ TYPE THIS DIGIT 
064744 105337 065002 7$: DECB = $OCNT i T BY 1 
064750 003347 BGT 2$ ::BR IF MORE TO DO 
064752 002402 BLT 6$ 7:BR IF DONE 
064754 005204 INC R4 ZZ INSURE LAST DIGIT ISN'T A BLANK 
756 000744 BR 2$ +:GO DO THE LAST DIGIT 
064760 012605 6$: MOV (SP)+,R5 t:RESTORE RS 
064762 012604 MOV (SP)+-R S:RESTORE R4 
064764 012603 MOV (SP)+.R3 t RESTORE R3 
064766 016666 000002 000004 MOV 2(SP) .4(SP) ::SET THE STACK FOR RETURNING 
064774 012616 MOV (SP) +. (SP) 
064776 000002 RTI RETURN 
065000 000 8$: .BYTE 0 + STORAGE FOR ASCII DIGIT 
065001 000 “BYTE 0 7: TERMINATOR FOR TYPE ROUTINE 
065002 000 SOCNT: <BYTE 0 S:OCTAL DIGIT COUNTER 
065003 000 SOFILL: :BYTE 0 :ZERO FILL SWITCH 
5004 000000 SOMOD 0 7 ZNUMBER OF DIGITS TO TYPE 


SEQ 0260 






3 *THE ROUT INE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

2 *NOTE1: SNULL CONTAINS THE CHARACTER Ms BE USED AS THE FILLER CHARACTER, 
> *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*CALL: 
te) USING A TRAP INSTRUCTION 
ae TYPE -MESADR 22MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


TYPE 
ME SADR 





CZRMOAO 1 sal FCTNL 
TYPE ROUTINE 


105737 
100002 


135716 


TST 3 


001173 


000011 
000200 


065336 


065220 
001172 


001170 
000001 
065220 
065336 


000040 
065220 
000007 


113734 


113730 
177600 
000023 


001242 
001243 


001243 


065336 





61$: 
62$: 


2$: 
60$: 
3$: 
4$: 


5$: 
6$: 


7$: 


HORIZONTAL TAB 


8$: 
9$: 


STYPEC: 


JSR 
DECB 
BR 


STPFLG 
1$ 


3$ 

RO,=(SP) 
a2(sP) ,RO 
#ARTENV, » SENV 


HAPTSPOOL ,SENVM ; 
62$ 


RO.61$ 
peatabie 


#APTCSUP , SENVM 


(RO)+,=(SP) 
4$ 

(SP)+ 

(SP) +,RO 
#2, (SP) 
MHT , (SP) 
8$ 
ACRLF , (SP) 


(SP) + 


SCHARCNT 
2s 


PC ,STYPEC 
ht Saree 


$NULL .- (SP) 
1(SP) 

6$ 

PC, $TYPEC 

SCHARCNT 

PROCESSOR 

(SP) 

Bc, $TYPEC 

#7. $CHARCNT 

9$° 


(SP) + 
2s 
a$TKS 
10$ 


a$TkB 
aT ye. *SP) 
#SXOFF , (SP) 


221$ He 3 A TERMINAL? 
iIHALT HERE IF NO TERMINAL 
AVE 


E 
SIGET ADDRESS OF ASCIZ STRING 
ING IN APT MODE 


ZIYES, SKIP TYPE 

[PUSH CHARACTER 10 BE TYPED ONTO STACK 
3:BR IF IT ISN'T THE TERMINAT 
2e1F "lag POP IT OFF THE STACK 


3; ;RESTORE 
7zADJUST RETURN PC 
7 ;RETURN 


T 
: ¢BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


73POP <CR><LF> EQUIV 
::TYPE A CR AND LF 


:-CLEAR CHARACTER COUNT 
32GET_NEXT CHARACTER 
2:2GO TYPE THIS CHARACTER 
2:1S a TIME FOR fie CHARS. ? 
:1F NO GO GET NEXT CHAR. 
; # OF FILLER CHARS. NEEDED 
22AND THE NULL CHAR. 
22:DOES A NULL We TO BE TYPED? 
22BR IF ax tr POP THE NULL OFF OF STACK 
2260 TYPE A NULL 

D0 NOT COUNT AS A COUNT 


ase TAB WITH SPACE 
TYPE A SPACE 
: BRANCH IF NOT AT 

STOP 


AB 
sPOP SPACE OFF STACK 
SIGET NEXT CHARACTER 


23 CHAR IN KYBD BUFFER? 
IF NOT 


:GET CHAR 
S ISTRIP ros BITS 
7WAS CHAR 


SEQ 0261 


F\ 





CZRMOAO fa FCTNL TST 3 
TYPE ROU 





001012 
105777 


005726 


000416 


032777 
001421 





113710 


113704 
177600 
000021 


113666 


000002 
000015 


065336 
000012 


064046 
040000 


000400 





e 
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113660 
000002 


000002 


113576 


113530 


101$: 


102$: 
10$: 


1$: CMPB 


INCB 
SCHARCNT : .WORD 


STYPEX: RTS 


-SBTTL SCOPE HANDLER ROUTINE 


102$ 

asTks 

101$ 

a$TKB, (SP) 
#177600, (SP) 
ASXON, (SP) 
(SP)+ 

asTPs 

10$ 


0 
2(SP) ,aSTPB 
+ teeth 


37BR IF NOT 

7z7WAIT FOR CHAR 

37GET CHAR 

zzSTRIP IT 

3zWAS IT XON? 

3;BR IF NOT 

scFIX STACK 

7z;WAIT UNTIL PRINTER IS READY 


;:LOAD CHAR TO BE TYPED INTO DATA REG. 
221$ ge A CARRIAGE RETURN? 


F_NO 
: EYES"-CLEAR CHARACTER COUNT 
3318 CHARACTER A LINE FEED? 
CH_IF YES 


:2COUNT THE CHARACTER 
2 CHARACTER COUNT STORAGE 


_—_. 


iii iii ttt ti titi titi itt tt ttt titititititttT TTT TTT ey 
;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENTS 
3*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
LOAD FLAG (SERFLG) INTO DISPLAY<15:08> 


: *AND THE ERROR 
is THE SWITCH tlt PROVIDED BY THIS ROUTINE ARE: 





7*SW1 LOOP ON TEST 
:*SW11= INHIBIT ITERATIONS 
= *SWO9=1 LOOP ON ERROR 
> *SWO8=1 LOOP ON TEST IN SWR<7:0> 
:*CALL 
i* SCOPE :2SCOPE=IOT 
SSCOPE: 
CKSWR zz TEST FOR CHANGE IN SOFT-SWR 
JSR PC, STOP 
1$: BIT #81714, aSWR ;LOOP ON PRESENT TEST? 
BNE SOVER + YES IF Sw14=1 
:MHAAASTART OF CODE FOR THE XOR TESTERMMAAM 
$XTSTR: BR 65 33.1F RUNNING ON THE ‘‘XOR'' TESTER CHANGE 
33 THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$, AAERRVEC iISeT FOR TIMEOUT 
TST a4#177060 :TIME OUT ON XOR? 
MOV (SP) +, AERRVEC ; ;RESTORE THE ERROR VECTOR 
BR SSVLAD TO THE NEXT TEST 
5$: CMP (SP)+, (SP)+ [CLEAR THE STACK AFTER A TIME OUT 
THE ERROR VECTOR 


MOV (SP) +, a@#ERRVEC 2 REST ORE T 
BR $ LOOP ON THE PRESENT TEST 
6$:;M#AHAEND OF CODE FOR THE XOR™ TESTERAMANE 
BIT #B1T08 ,aSWR 3;LOOP ON SPEC. TEST? 
BEQ 2s :2BR IF NO 


SEQ 0262 


F 
Fi 


5 a oy ie . fae 
SCOPE TINE 


000012 


023726 


TST 3 


113520 
000027 
001116 


065660 
001122 
001117 
001131 
001000 


001124 


001117 
001206 





F 
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001117 
113440 
001122 


113406 


8$: 
2s: 


7$: 
4$: 


3$: 


1$: 
MO 
SSVLAD: 
MOVB 


SOVER: 


RTI 
$MXCNT: 
$SWO8TBL 


= (SP) 

go. (SP) 
#27, (SP) 

8$ 

(SP) ,$TSTNM 
(SP) 


(SP) 
#SSWOBTBL , (SP) 


@(SP)+,$LPADR 
SOVER 


SERMAX , SERFLG 
oy TO9,aSWR 
SLPERR,$LPADR 
SOVER 


SERFLG 
STIMES 


1 
#B1T11,aSWR 
1$ 


SPASS 
1$ 


$SICNT 
STIMES ,SICNT 
SOVER 
#1,$1CNT 
A all -STIMES 
STSTNM, 4S a 
(SP) , SLPAD 
(SP) *SLPERR 
SESCAPE 

#1, SERMAX 


$TSTNM, aD ISPLAY 
. (SP) 


SLPADR 


TST1+2 


TST16+2 


3:CLEAR A_TEMP. LOCATION 
+ ¢PICKUP THE ear TEST NUMBER 
BAD TEST NUMBER 


CH_IF 
33 CHECK THE NUMBER IN 


THE SWR 
; BRANCH IF TEST NUMBER IS OUT OF RANGE 
NUMBER 


; {UPDATE THE TEST 
BY ONE 


: :: LOOP ON ERROR? 


IF NO 
37SET LOOP ADDRESS TO LAST SCOPE 


oo ty THE ERROR F 


LAG 
CLEAR THE NUMBER OF ao TO MAKE 


7ZESCAPE TO THE NEXT T 
:2INAIBIT_ITERAT IONS? 


oelF FIRST PASS OF 


PROGRAM 

INHIBIT ITERATIONS 

i INCREMENT ITERATION COUNT 
THE R_OF ITERA 

TERATION REQUIRED 

TERATION COUNTER 
he aly TO DO 


NUMBER 
2eSET TEST NUMBER E a cae 


TF MORE I 

3 URE INITIALIZE THE I 
NUMBER OF 

7: COUNT TEST 


VE ESS 
ZICLEAR THE ESCAPE FROM ERROR ADDRESS 
Y ALLOW ONE(1) ERROR ON NEXT TEST 


7:DISPLAY TEST NUMBER 


22FUDGE RETURN ADDRESS 


iA I PS 


- NUMBER OF ITERATIONS 


22STARTING ADDRESS OF 
:STARTING ADDRESS OF 
$3 TING SS OF 


 ESTARTING ADDRESS OF 





CKUP 
ft py THE TEST NUMBER AS AN INDEX 
ORM THE ADDRESS OF TEST POINTER 
iiser LOOP ADDRESS TO DESIRED TEST 
0 LOOP ON THE TE 


TES 
3 CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
2 sHAS AN ERROR OCCURRED? 


33 F_NO 
yoy — FOR THIS TEST OCCURRED? 


Ci 
Al 


CZRMOAO ony heh H cm TST 3 
SCOPE HANDLER ROUTINE 


001117 


037670 
001217 
000001 
001130 
070000 


113066 


001000 


001124 
001210 


001210 
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113052 





WORD TST17+2 z:STARTING ADDRESS OF TEST 17 
-WORD TST20+2 2zSTARTING ADDRESS OF TEST 20 
-WORD TST21+2 zzSTARTING ADDRESS OF TEST 21 
-WORD TST22+2 zzSTARTING ADDRESS OF TEST 22 
«WORD TST25+2 i2STARTING ADDRESS OF TEST 23 
-WORD TST24+2 3zSTARTING ADDRESS OF TEST 24 
«WORD TST25+2 zSTARTING ADDRESS OF TEST 25 
-WORD TST26+2 eis ARTING ADDRESS OF TEST 26 

TST27+2 :zSTARTING ADDRESS OF TEST 27 


. WORD 
.SBTTL ERROR HANDLER ROUTINE 


SEAR REREEEREEREEEEEREEKRAEREREREREEKEEKEEREREREREREEEEEEKEREE 


SATHIS ROUTINE WILL _INCREMENT A... ERROR FLAG AND THE ERROR COUNT, 


; *SAVE THE ERROR ITEM ote AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERRTYP ON ERR 
is THE SWITCH tle PROVIDED BY THIS ROUTINE ARE: 
> *SW13=1 pg M ERROR TYPEOUTS 
7*SW10=1 BELL ON ERROR 
or Hi LOOP ON ERROR 
** 
;* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
CKSWR 7: TEST FOR a IN SOF T-SWR 
7$: INCB SERFLG 23SET THE ERROR FLAG 
BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM,@DISPLAY 7: DISPLAY TEST NUMBER AND ERROR FLAG 
BIT #B1T10,aSWR ;;BELL ON ERROR? 
BEQ 1$ 33 - SK 
TYPE , SBELL 7zRING BELL 
1$: INC SERTTL 3:COUNT THE NUMBER OF ERRORS 
MOV (SP) , SERRPC 3:GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, SERRPC 
@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #81T13,aSWR 7z:SKIP TYPEOUT IF SET 
BNE 20$ :zSKIP TYPEOUTS 
JSR PC, ERRTYP 3:GO0 TO USER ERROR ROUTINE 
208 TYPE SCRLF 
CMPB MAPTENV, SENV 7 RUNNING IN APT MODE 
BNE 2$ :2NO, SKIP APT ERROR REPORT 
MOVB SITEMB, tg SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, SATY4S + :REPORT FATAL ERROR TO APT 
21$: BYTE 9 
22S: BR 52$ 2 APT ERROR LOOP 
$: TST aS. ;HALT ON ERROR 
BPL 3$ :3SKIP IF CONTINUE 
HALT ON ERROR! 
CKSWR 33 TEST FOR CHANGE IN SOFT-SWR 
3$: BIT #B1T09,aSWR ;LOOP ON ERROR SWITCH SET? 
BEQ 4$ BR IF NO 
MOV SLPERR, (SP) 72FUDGE RETURN FOR LOOPING 
4$: TST SESCAPE 3:CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ 7 BR IF NONE 
MOV SESCAPE , (SP) ;2FUDGE RETURN ADDRESS FOR ESCAPE 


C 
SEQ 0264 : 
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ERROR HANDLER 


066122 022737 
30 001001 


066134 000002 


066145 


066216 117746 
066222 042716 
021627 
001007 
34 104401 
066240 004737 

44 005726 
000137 
066252 021627 

56 001004 
066260 022737 
066266 001500 


066270 
066270 022737 
0662 001004 





037650 


112740 
177600 


067332 
066146 
064154 
000007 


000176 


000001 


H 5 
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000042 


066140 
066142 
000060 
000062 
112744 


001154 


066136 


SEQ 0265 

5$: 

CMP #SENDAD ,a#42 sACT=11 AUTO-ACCEPT? 

BNE 6$ se CH IF NO 

HALT :7YES 
6$: 

RTI 7 RETURN 
-SBTTL TTY INPUT ROUTINE 
3 Ly REAR REREEEEEEEEEREEEEERAEEAAEEAREEEEEEEREEREEEREREREERKREE 
-ENABL LSB 
STKCNT: .WORD 0 7 NUMBER OF ITEMS IN QUEUE 
STKQIN: .WORD 0 3, INPUT POINTER 
$TKQOUT: .WORD 0 ;;O0UTPUT POINTER 

: 1 iz TTY KEYBOARD QUEUE 


:*TK INITIALIZE ROUTINE 
2*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


:*CALL: 

* JSR PC, $TKINT 

:* RETURN 

$TKINT: CLR STKCNT ZCLEAR COUNT OF ITEMS IN QUEUE 


MOV A#STKQSRT ,STKQIN 3 IMOVE STARTING ADDRESS OF THE 
MOV STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
MOV #STKSRV ,@ATKVEC :INITIALIZE KEYBOARD VECTOR 


MOV #200, a@#TKVEC+2 is "BR" 
TST a$TkB CLEAR DONE FLAG 
MOV #100, a$TkS ;7ENABLE TTY KEYBOARD INTERRUPT 
RTS PC 2 RETURN TO CALLER 
:*TK SERVICE ROUTINE 
2*THIS ROUTINE WILL nl Se non TTY KEYBOARD INTERRUPT 
‘iy a wa THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
** 


THE QUEUE. 
:*IF THE CHARACTER IS A *‘CONTROL~C*' (“C) STKINT IS CALLED AND 
:*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL~C'* RESTART ADDRESS (SHUT2) 


A die MOVB  a$TKB,-(SP) z:PICKUP THE CHARACTER 
BIC #°C177, (SP) +:STRIP THE JUNK 


CMP (SP) ,#3 z1S IT A CONTROL C? 
BNE 1$ [BRANCH IF 
TYPE ,$CNTLC Si TYPE A CONTROL -C (*0) 
JSR PC, $TKINT SZ INIT THE KEYBOARD 
TST (SP)+ 7: CLEAN UP STACK 
JMP SHUT2 :: CONTROL C RESTART 

1$: CMP (SP) #7 :31S IT A CONTROL G? 
BNE 2$ (CH IF NO 
CMP ASWREG, SWR t:1S SOFT=SWR SELECTED? 
BEQ b$ +:G0 TO SWR CHANGE 


2$: 
CMP 41,$TKCNT 3718 THE a FULL? 
BNE 3$ ; BRANCH IF 
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001212 


000023 
112636 
112630 
112624 


000176 
112510 
112504 
177600 
000007 


Sot 
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112602 


066145 


066140 


001154 


001151 





, SBELL 
(SP) + 


5$ 

(SP) #23 
32$ 

a$TkS 

(SP)+ 
a$TkS 

31$ 
a$TKB,-(SP) 
#*(177, (SP) 
{sp)+, W21 
#100, a$TKS 


STKCNT 
(SP) ,#140 


(SP) ,#175 
4$ 


#40, (SP) 
(SP)+,@$TKQIN 
STKQIN 

_ N,#STKQEND 
#STKQSRT ,STKQIN 


1 
aSTKS 
15$ 


@$TKB,-(SP) 
#°(177, (SP) 
SP) #7 


(SP) + 

PC ,STKINT 
KS 

#1,SINTAG 

-SCNTLG 

- SMSWR 

SWREG,-(SP) 


ayia THE TTY BELL 
Td CHARACTER OFF OF STACK 


HIS IT A _CONTROL~S? 
CH_IF NO 
: DISABLE Sun OF tiace INTERRUPTS 


: LOOP UNTIL ITS THERE 

CHARACTER 
MAKE " 7-B1T a 
IT A_CONTROL-Q 


CH IF YES 
zis IT A SPECIAL CHAR? 
H_IF YES 
MAKE i in CASE 
: JUPDATE THE POINTER 
3360 OFF THE Bw 


; BRANCH _IF 
::RESET THE POINTER 
; RETURN 


Loy YES 
ge OFF STACK 
Y_ INPUT QUEUE 
KEYBOARD INTERRUPTS 
SISeT INTERRUPT MODE INDICATOR 


2 sECHO THE CONTROL-G (*G) 
: TYPE CURRENT CONTENTS 
7:SAVE SWREG FOR TYPEOUT 


CH IF _NO 
:7REENABLE TTY KEYBOARD INTERRUPTS 
#3 COUNT THIS CHARACTER 

IT UPPER CASE? 


ECP P iT iii rit ii itt itiitiititi itt itt 
2 *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
s *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
an “— OPERATING IN TTY INTERRUPT 

: CMP ASWREG, SWR 21S a # SOF T=SWR SELECTED 


CONTROL -G? 
F NOT ie IT IN THE TTY QUEUE 


Iii i tii iri iii iit itititiciiitiiiititititt tt 

: CONTROL IS PASSED TO THIS POINT FROM EITHER y * TTY wre’ SERVICE 
:*ROUTINE OR FROM La. 4 SOFTWARE SWITCH REGISTER Ti 
;*CONTROL-G BEING TYPED, AND 
6$: CMPB $AUTOB #1 


RESULT OF A 


RAP CALL, 
THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
33 WE RUNNING IN AUTO-MODE? 
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TTY INPUT ROUTI 





067362 
112406 
112402 

77600 
000003 
067332 
000006 
001151 
000100 
064154 
000025 
067337 
000006 


000060 
000002 


000002 
177776 
001216 
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000001 
112340 


112266 


000001 
112244 


19$: 


7$: 


@$TKB,-(SP) 
em ClT?, (SP) 


(SP) #3 
9$ 

SCNTLC 
SINTAG, #1 
#100, a$TKS 
SHUT2 


(SP) ,425 
10$ 


(SP) 
~2(SP) , (SP) 


SQUES 
20$ 


+360 oT pak nae ASCIICALL DIGITS) 
;PR FOR NEW SWR 


ee CLEAR. ha 


NEW 
7iCHAR THERE? 
:2:1F NOT TRY AGAIN 


:-PICK UP CHAR 
:sMAKE IT 7-BIT ASCII 


2i1S IT A_CONTROL-C? 


CH IF NOT 
3:YES, ECHO CONTROL-C (“C) 
7: CLEAN UP STACK 

: ¢REENABLE TTY KEYBOARD INTERRUPTS? 


CH IF NO 
i ALLOW TTY aN INTERRUPTS 
oe CONTROL-C RESTAR 


21S IT A_CONTROL-U? 
CH IF NOT 


izYES, ECHO CONTROL-U (“U) 
GNORE PREVIOUS INPUT 
Z:LET'S TRY IT AGAIN 


221$ Aa A <CR>? 


ce F NO 
2eYES, IS y* THE FIRST CHAR? 
CH YES 


a IF 43 

2sSTRIP-OFF ASCII 

ifs THUS: THe FIRST CHAR 

22NO, ak a PRESENT 

ee ae een TO MAKE 

ROOM FOR NEW ONE. 

7 7KEEP COUNT OF CHAR 

ISET IN NEW am 

32GET THE NEXT ONE 

33 TYPE ?<CR><LF > 
22SIMULATE CONTROL-U 


SEQ 0267 
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123718 


TST 3 


067322 
067332 


000177 


000134 
067320 
177777 


067322 


067320 
067320 


000134 
067320 


000025 


K 5 
MACRO V03.01 11-APR-80 13:39:53 PAGE 38-11 


000002 


067320 


067320 


SARA AR IRATE EERERERERERAEEREREREEEEEERAEKEEREREREREREE 


PSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


S*CALL: 
; RDCHR ::GET A CHARACTER FROM THE QUEUE 
3* RETURN HERE 7: CHARACTER IS ON THE STACK 
:* ::WITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,=(SP) : PUSH DOWN THE PC AND 
MOV 4iSe5 ,2(SP) =: THE PS 
CLR 4(SP :3GET READY FOR A CHARACTER 
CLR ‘PUT NEW PS ON STACK 
MOV yous, =(SP) ::PUT NEW PC ON STACK 
a RTI ::POP NEW PC AND PS 
1$: Ist one zzWAIT ON A CHARACTER 
DEC $Tk ::DECREMENT THE COUNTER 
MOVB SS TKOOUT, 4(SP) :3GET ONE CHARACTER 
INC $TKQOUT [UPDATE THE POINTER 
CMP STKQOUT .ASTKQEND "3gDID It GO OFF OF THE END? 
BNE : :BRANCH IF 
MOV #STKQSRT,$TKQOUT’ "3 gRESET THE POINTER 
2s: RTI E TURN 


sé sedeneonhasnnsendanubeenenesnnbinaesoeneenneneesesbendaaneesann 


:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


;*CALL 


Zz RDLIN 32 INPUT A STRING FROM THE T 
o* RETURN HERE szADDRESS OF FIRST CHARACTER "uu BE ON THE STACK 
7* 72 TERMINATOR WILL BE A BYTE OF ALL O'S 
SRDLIN: MOV R3,-(SP) 77 SAVE R3 
CLR = SP) ‘RTLAR THE RUBOUT KEY 
1$: MOV MSTTYIN,R3S GET ADDRESS 
2$: CMP ASTTYINGS. .R3 ;;BUFFER FULL? 
BLOS 4$ 3 3BR IF YES 
RDCHR :GO READ ONE CHARACTER FROM THE TTY 
MOVB pd (R3) [:GET CHARACTER 
10$: CMPB , (R3) ::1S IT A RUBOUT 
BNE a7? 77BR IF 
TST (SP) :21S THIS THE FIRST RUBOUT? 
BNE 6$ 77BR IF 
a #'°\,9$ 32 TYPE A BACK SLASH 
MOV #-1, (SP) 23SET THE RUBOUT KEY 
6$ DEC R ; BACKUP BY ONE 
CMP R3,ASTTYIN 13 STACK EMPTY? 
BLO ;BR IF YES 
MOVB (R3) ,9$ ?:SETUP TO TYPEOUT THE DELETED CHAR. 
TYPE 9$ a3 YPE 
BR 3$ ':GO READ ANOTHER CHAR. 
5$: TST - (SP) 7 RUBOUT KEY SET? 
BEQ 7$ 7:BR IF NO 
oe #'°\,.9$ 7: TYPE A BACK SLASH 
CLR (SP) 7:CLEAR THE RUBOUT KEY 
7$: CMPB #25,(R3) 3218S CHARACTER A CTRL U? 


SEQ 0268 





Ci 
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TTY INPUT ROU SEQ 0269 
067206 001003 BNE as ::BR IF NO wes 
067210 104401 067337 TYPE $CNTLU ::TYPE A CONTROL 'U 
067214 000726 BR is :3GO START OVER 
067276 122713 000022 8$: CMPB es #22, (3) Z1S CHARACTER A ‘"*R'? 
067222 001011 BNE 3$ BRANCH IF NO 
067224 105013 CLRB =. (R3) Z3CLEAR THE CHARACTER 
067226 104401 001217 TYPE  ,$CRLF S: TYPE A ‘'CR'' & tre 
067232 104401 067322 TYPE $TTYIN ::TYPE THE INPUT STRING 
067236 000717 BR 3s 3360 PICKUP U ANOTHER CHACTER 
067240 104401 001216 4$: TYPE $QUES : TYPE A 
067244 000712 BR is T= CLEAR THE BUFFER AND LOOP 
067246 111337 067320 3$: MOVB _ (R3),9$ ::ECHO THE CHARACTER 
067252 104401 0673.0 TE as 
067256 122723 000015 CMPB #15, (R3)+ : CHECK FOR, RETURN 
067262 001305 BNE 2$ LOOP IF NOT RETURN 
067264 105063 177777 CLRB = -1(R3) 7: CLEAR RETURN (THE 15) 
067270 104401 001220 TYPE ,SLF :TYPE A LINE FEED 
067274 005726 TST (SP) + [CLEAN RUBOUT KEY FROM THE STACK 
067276 012603 MOV (SP)+,R3 t:RESTORE R3 
011646 MOV (SP) ,-(SP) :;ADJUST THE STACK AND PUT ADDRESS OF THE 
067302 016666 000004 000002 MOV 4 (SP) ,2(SP) 3: FIRST ASCII CHARACTER ON IT 
067310 012766 067322 000004 MOV #STTYIN, 4 (SP) 
067316 000002 RTI 7 2RETURN 
067320 000 9$: .BYTE 0 : : STORAGE FOR ASCII CHAR. TO TYPE 
067321 000 “BYTE 0 TERMINATOR 
067322 STTYIN: .BLKB 8. ; ;RESERVE 8 BYTES FOR TTY INPUT 
067332 136 103 015 $CNTLC: .ASCIZ /*C/<15><12> TROL ‘'c'' 
067337 136 125 015 S$CNTLU: .ASCIZ /*U/<15><12> :: CONTROL ' 
136 107 015 S$CNTLG: .ASCIZ /*G/<15><12> =: CONTROL ye 
067351 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = / 
7 040 040 116 NEW: “ASCIZ / NEW = / 
9 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
3 FARRAR AERAEEAERAREREREREEEEREREEKEEREEEEKEEEEEEREREREREREKEKKEKKEKKEE 
Z*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
: s CHANGE IT TO BINARY. 
3* RDOCT ::READ AN OCTAL NUMBER 
:* RETURN HERE 7:LOW ORDER BITS ARE ON TOP OF THE STACK 
i* ::HIGH ORDER BITS ARE IN $HIOC 
067374 011646 SRDOCT: MOV (SP) ,-(SP) z:PROVIDE SPACE FOR THE 
067376 016666 000004 000002 MOV 4 (SPS « 2 (SP) :: INPUT NUMBER 
067404 010046 MOV RO,-(SP) +:PUSH RO ON STACK 
067406 010146 MOV R1.-(SP) +:PUSH R1 ON STACK 
067410 010246 V R2.-(SP) +:PUSH R2 ON STACK 
067412 104412 1$ RDLIN S:READ AN ASCIZ LINE 
067414 012600 V (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
067416 005001 CLR R1 [CLEAR DATA WORD 
7420 005002 CLR R2 
067422 112046 2$: MOVB  (RO)+,=(SP) z2:PICKUP THIS CHARACTER 
067424 001412 BEQ 3$ SZ 1F ZERO GET OUT 
067426 006301 ASL R1 yi* 
7430 006102 ROL R2 
067432 006301 ASL R1 72%4 
067434 006102 ROL R2 





tno on Fe hy FCTNL TST 3 
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SEQ 0270 


ASL R1 33%8 
ROL R2 
BIC #*C7, (SP) 3zSTRIP THE ASCII JUNK 
<y tess 33ADD IN THIS DIGIT 
3$: TST (SP) + 3;CLEAN TERMINATOR FROM STACK 
MOV R1,12¢(SP) 73SAVE THE RESULT 
MOV R2,$HIOCT 
MOV SP)+,R2 3zPOP STACK INTO R2 
MOV (SP)+,R1 33POP STACK INTO R1 
art (SP) +, *RO 33POP STACK INTO RO 


$HIOCT: .WORD 0 
.SBTTL TRAP DECODER 


>*AND USE IT TO IND 
TO THAT 


33THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 


-SBTTL TRAP TABLE 


7*BY THE ‘TRAP’ INSTRUCTION. 





; ROUT INE 

STRPAD: .WORD $TRAP2 
$TYPE ;;CALL=TYPE TRAP+1 (104401) 
STYPOC ;;CALL=TYPOC TRAP +2(104402) 
$TYPOS ::CALL=TYPOS  TRAP+3(104403) 
STYPON ;::CALL=TYPON TRAP+4(104404) 
STYPDS ::CALL=TYPDS  TRAP+5(104405) 
STYPBN ::CALL=TYPBN TRAP+6(104406) 
SGTSWR ;:CALL=GTSWR - TRAP+7(104407) 





; RETURN 
: HIGH ORDER BITS GO HERE 


tI i iii tit tit ititit tit ittti titi Tet 
TRTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 

EX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:s0F THE ta sa THEN USING THE ADDRESS OBTAINED IT WILL 


STRAP: MOV 2(SP) ,-(SP) 2ASSUME THE STATUS OF 
BIC #20, (SP) ee THE CALLER=-DO NOT ALLOW 
MOV #1$,-(SP) ae T-BIT TRAPS 
RTI 238 SET THE NEW STATUS 

1$: MOV RO,-(SP) 2 SAV 
MOV 2(SP) ,RO 33GET TRAP ADDRESS 
TST =(RO) KUP BY 2 
MOVB (RO) ,RO 33GET RIGHT BYTE OF TRAP 
ASL RO :sPOSITION FOR INDEXING 
MOV STRPAD(RO),.RO ;; INDEX TO TABLE 
RTS RO 22GO TO ROUTINE 


$TRAP2: MOV (SP) ,=(SP) z:MOVE THE PC DOWN 
MOV 4(SP) ,2¢SP) 2sMOVE THE PSW DOWN 
RTI 2 sRESTORE THE PSW 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

TYPE BINARY (ASCII) NUMBER 


GET SOFT-SWR SETTING 
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TRAP TABLE SEQ 0271 | ER 
067570 066434 SCKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR " 
067572 066776 SRDCHR ;;CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
067574 067066 SRDLIN soe ae amet $45 op hf 1 TTY TYPEIN STRING ROUTINE 
067576 067374 S$RDOCT ;;CALL=RDOCT TRAP+15(104415) READ CTAL NUMBER FROM TTY 
067600 064164 SSAVREG ::CALL=SAVREG TRAP+14(104414) SAVE RO-R5 ROUTI 
067602 064222 SRESREG ;;CALL=RESREG  TRAP+15(104415) RESTORE RO-R5S ROUTINE 
11 -SBTTL POWER DOWN AND UP ROUTINES ' 
MADARA AAAAAALALLAAL ALAA ALLELE SERS SESE SEE RSET ET PS PPP TP eS H 
R DOWN ROUTINE 
067604 012737 067744 000024 jpower MOV HSILLUP ,Q#PWRVEC ;;SET FOR FAST UP 
067612 012737 000340 000026 MOV #340, aAPWRVEC+2 ; i 7 | 
the 010046 MOV RO,-(SP) PUSH ” ON STACK 
7622 010146 MOV R1,-(SP) t: 1 ON STACK 
067624 010246 MOV R2,-(SP) 33 R2 ON STACK 
34 MOV 27 (SP) sé R35 ON STACK | 
067630 MOV R4,-(SP) 73PUSH R4& ON STACK 
067632 010546 MOV R5,-(SP) 32PUSH RS ON ST. 
067634 017746 111314 MOV @SWR,~(SP) + PUSH @SWR ON STACK 
067640 010637 067750 MOV SP, $SAVR6 SAVE SP 
7644 012737 067656 000024 MOV 4SPWRUP ,AAPWRVEC :;SET UP VECTOR 
067652 000000 HALT 
654 000776 BR 2 7 HANG UP 


Petit iii titi iii iii titi iii iii iii ii iitiiii itis! 
POWER UP ROUTINE 

067656 012737 067744 000024 S$PWRUP: MOV AMSILLUP ,@#PWRVEC ;;SET FOR FAST DOWN 

eke of 013706 067750 MOV ' $SAVR6,SP 33GET SP 


| 
} 
| 
06 005037 067750 CLR SSAVR6 z:WAIT LOOP FOR THE TTY 
067674 005237 067750 1$: INC SSAVR6 ::WAIT FOR THE INC 
067700 001375 BNE 1$ WORD | 
067702 012677 111246 MOV (SP)+,@SWR 3 :POP STACK INTO a@SwR 
067706 012605 MOV (SP)+,R5 3POP STACK INTO R5 
067710 012604 MOV (SP)+,R4 7:POP STACK INTO R4 | 
067712 012603 MOV (SP)+,R3 3:POP STACK INTO R3 
067714 012602 MOV (SP)+,Re 33POP STACK INTO R2 | 
067716 012601 MOV (SP)+,R1 7:POP STACK INTO R1 
012600 MOV (SP)+-RO [POP STACK INTO RO 
067722 012737 067604 000024 MOV ASPWRDN,@APWRVEC iZSET UP THE POWER DOWN VECTOR 
067730 012737 000340 000026 MOV #340, aMPWRVEC+2 ;:PR 0:7 | 
067736 104401 TYPE ‘REPOR THE POWER FAILURE 
067740 067752 SPWRMG: .WORD  $POWER PEOWER FAIL MESSAGE POINTER 
067742 000002 RTI 
067744 000000 SILLUP: HALT ::THE POWER UP SEQUENCE WAS STARTED 
067746 000776 BR 272 33 BEFORE THE POWER DOWN WAS COMPLETE 
067750 000000 SSAVR6: 0 7:PUT THE SP HERE 
067752 015 012 120 $POWER: “ASCIZ <15><12>' POWER’’ * 
12 -SBTTL APT COMMUNICATIONS ROUTINE 
REE EKAEAKEAEAAEAKEEEREKEKEKEEEREEKEEEEEREKEEREREEEREKEKEKEEKKEKEK 
067762 112737 000001 070226 $ATY1: MOVB  #1.SFFLG 32710 REPORT FATAL ERROR 
067770 112737 000001 070224 S$ATY3: MOVE 1.5m °SMFLG 7:10 TYPE A MESSAGE 
070000 112737 000001 070226 $ATY4: MOVB +L SFFLG 3:TO ONLY REPORT FATAL ERROR 


070006 010046 MOV RO,~(SP) 3zPUSH RO ON STACK 
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14 


=o 
33 
Soe 
Bus 


S 
Sued 
UIN$—NO 


070224 
000001 


000002 
177776 
065006 


070226 
001242 
001222 


070224 


001222 
070136 
000004 


001224 
000004 


11$: TST 


12$: CLRB 


R 
SMFLG: .BYTE 
SLFLG: .BYTE 
SFFLG: .BYTE 
APTSIZE = 
APTENV = 001 
APTSPOOL= 100 
APTCSUP = 040 


R1,=(SP) 
SMFLG 


5 
#APTENV ,SENV 


faethe oSENVM ;;S 


a4 (SP) ,RO 
#2,4(SP) 
SMSGTYPE 


1$ 
RO, SMSGAD 
(RO) + 

2$ 
SMSGAD, RO 


0 
RO, $MSGLGT 
#4 , SMSGTYPE 


a4 (SP) ,4$ 
#2,4(SP) 
177776, =(SP) 
PC ,STYPE 
SFFLG 

12$ 

SENV 

12$ 
SMSGTYPE 
11$ 


@4 (SP) , SFATAL 
#2,4(SP) 


: ;BUSH R1_ ON STACK 
3 SHOULD TYPE A MESSAGE? 
#2 OPERATING UNDER APT? 


RETURN ADDR. 
i2SEE IF BONE 7 LAST XMISSION? 
PUT ADDR IN MAILBOX 
:2F IND END OF MESSAGE 


cae START OF MESSAGE 

T MESSAGE LNGTH IN WORDS 
7:PUT LENGTH IN MAILBOX 
7;TELL APT TO TAKE MSG. 


zzPUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

PUSH 197776 ON STACK 

Z:CALL TYPE MACRO 


4 te a” es FATAL ERROR? 


aay ore — APT? 
ore ir MESSAGE ? 
GET NERROR 4 
ADDR. 


; sBUMP_RETURN 
23 TELt APT TO TAKE ERROR 
"CLEAR FATAL FLAG 
7:CLEAR LOG FLAG 
3: CLEAR MESSAGE FLAG 
2POP STACK IN) R1 
3sPOP STACK Ih.O RO 


22LOG FLAG 
32FATAL FLAG 


ma 


C 
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CONSOLE ME SEQ 0273 


1 -SBTTL CONSOLE MESSAGES 

: tas 200 196 101 SCTMSG: .ASCI] <CRLF>@FAILED TO RECOVER THE BAD SECTOR FILE (DEC 144)a 

4 070310 200 11 116 eASCIZ <CRLF>@ON THIS DRIVE@ 

5 070327 075 000 EQUALS: .ASCIZ a@=@a 

6 070331 101 114 114 ALL: eASCIZ @ALL@<CRLF> 

7 070336 040 077 040 QUES: .ASCIZ @? 2a 

8 070342 054 040 000 COMMA: .ASCIZ @, @ 

9 070345 200 124 117 MSHELP: .ASCII <CRLF>@TO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKa 
10 070433 200 120 101 eASCII <CRLF>@PACK, THIS PROGRAM SHOULD BE HALTED BY TYPING A (“C)a 
11 070521 200 103 117 ASCII <CRLF>@CONTROL C. AS A RESULT, THE PROGRAM WILL BE HALTED@ 
12 077607 200 127 110 ~ASCII <CRLF>@WHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING.@<CRLF> 
13 070671 200 124 131 eASCIZ <CRLF>@TYPE HELP TEXT (Y/N) ? 

14 070722 UBUSQST: 
15 070722 200 103 110 eASCIZ <CRLF>@CHANGE ADDRESSES (Y/N) ?.@ 

16 070755 200 125 123 CNSL eASCIZ <CRLF>@USE SAME ie (Y/N) ? @ 

17 071010 200 102 125 CNSLO1: .ASCIZ <CRLF>@BUS ADDRESS 

18 071026 040 114 111 CNSLO2: .ASCIZ @ LIMITS = LO= 10000, HI= 17XXXX@<CRLF > 

19 071070 126 105 103 CNSLO3: .ASCIZ @VECTOR ADDRESS @ 
20 07111 040 114 111 CNSLO4: .ASCIZ @ LIMITS - LO= o HI= 1000@<CRLF><LF> 

21 071144 102 122 040 CNSLOS: .ASCIZ @BR LEVEL 
22 071156 040 114 111 CNSLO6: .ASCIZ @ std - LO= 0, HI= 7@<CRLF><LF> 

23 071207 200 CNSLO7: .ASCII <CRLF> 
24 071210 200 124 131 eASCII <CRLF>@TYPE *'A’’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a 
25 071275 200 101 116 eASCIZ <CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.@ 

26 071352 200 CNSLO8: .ASCII <CRLF> 
27 071353 040 077 111 CNSLO9: .ASCIZ @ ?ILLEGAL TS tat ee 
28 071374 200 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): “ 

071410 104 122 111 MSGDRV: .ASCIZ ‘er VE/ 

30 071416 040 111 123 LODEV: .ASCIZ / IS LOAD DEVICE/ 

31 071436 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 

32 071453 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 

33 071472 040 117 106 OFFLIN: .ASCIZ / OFF LINE/ 

te 1504 040 117 116 INE: .ASCIZ / ON LINE / 

36 -EVEN 

37 
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-SBTTL FUNCTION CODE TABLE 


;THE FUNCTION CODE TABLE IS USED TO yt ae STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA = BIT 15_IS SET_IN 4 3 ENTRY FOR A GIVEN FUNCTION CODE 
TIF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS re OTHERWISE, 
:BIT " Wt ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 
sNOTE T ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:1T IS NOT EXPECTED AS A RESULT OF THE COMMAND. a 

WCE - BIT 14 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN ot ie CODE 
IF WRITE ERRORS ARE ENABLED DURING THE EX Een. prt HAT COMMAND. 
7 THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE"’, *DPE"', *UPE’’. 


IAE ~ BIT 10 IS SET IN THE ENTRY ae A GIVEN FUNCTiON CODE 
LIF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


: AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
> COMMAND. pe E pos I. aaa BY THIS BIT ARE ‘‘TRE'', ‘DLT'’, ‘NEM’, 


: BIT 08 IS NOT USED. 


HCE ~ BIT 07 IS SET IN THE ENTRY FOR A GIVEN gly CODE 
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
HEADER ERRORS INCLUDE "HCRC’’, ‘HCE’', ‘FER’, AND ‘BSE’. 


ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN oe te CODE 
LIF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION Fl HAT 
;COMMAND. THESE ERRORS INCLUDE 'MDPE'', "DCK'', AND ‘CH’ 


: BIT O05 IS NOT USED. 
: BIT 04 IS NOT USED. 
: BIT 03 IS NOT USED. 
: BIT 02 IS NOT USED. 
: BIT 01 IS NOT USED. 
: ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: FUNCTION CODE TABLE 


-WORD OPI :NOP 


SEQ 0274 | 
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FUNCTION CODE TABLE SEQ 0275 
1520 130001 -WORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION (2) 
59 071522 132000 «WORD ATA!OPI!IVC! JAE 3 SEEK 
60 071524 130000 «WORD ATA!OPI! IVC RECALIBRATE 
61 bot 2¢8 020000 «WORD OPI DRIVE CLEAR 
15 030000 «WORD OPI!IVC sRELEASE 
63 071532 150000 «WORD OPI!ATA!IVC 7 OFFSET 
1534 130000 «WORD OPI!ATA!IVC SRETURN TO CENTERLINE 
65 071536 020000 «WORD OPI ;READ IN PRESET 
71540 020000 «WORD OPI PACK ACKNOWLEDGE 
67 071542 130001 «WORD OPI!ATA!ILF!IVC- ILLEGAL FUNCTION (24) 
68 071544 130001 «WORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION (26) 
1546 132000 «WORD ATA!OPI!IVC! IAE : SEARCH 
071550 130001 -WORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION (32) 
71 071552 130001 -WORD OPI!ATA!ILF!IVC 2 ILLEGAL FUNCTION ( 
554 130001 -WORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION 
73 071556 130001 «WORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION (40) 
74 071560 130001 «WORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION (42) 
75 071562 130001 «WORD OPI!ATA!ILF! IVC 7 ILLEGAL FUNCTION (44) 
76 071564 130001 «WORD OPI!ATA!ILF! IVC ; ILLEGAL ote RATA (46) 
77 071566 073300 -WORD WCE!OPI! IVC! IAE! AOE !HCE!ECH ;WRITE CHECK DAT 
071570 073300 -WORD WCE!OPI! IVC! IAE!AOE!HCE!ECH WRITE CHECK HEADER AND DATA 
79 071572 1 «WORD OPI!ATA!ILF! IVC ILLEGAL FUNCTION (54) 
80 071574 13000 «WORD OPI!ATA!ILF! IVC SILLEGAL FUNCTION (56) 
81 071576 037200 - WORD OPI; 1VC-WLE: JAE: AOE ! HCE WRITE DATA 
82 071600 037000 «WORD OPI!IVC!WLE! IAE!AOE WRITE HEADER AND DATA 
83 071602 1 1 -WORD OPI !ATA!ILF IVC ILLEGAL FUNCTION (64) 
8& 071604 1 1 «WORD OPI!ATA!ILF! IVC ILLEGAL FUNCTION (66) 
85 071606 033300 «WORD OPI! IVC! IAE!AOE!HCE!ECH zREAD DATA 
86 071610 033300 «WORD OPI! IVC! IAE!AOE!HCE!ECH ;READ HEADER AND DAT 
87 071612 130001 «WORD OPI!ATA!ILF! IVC ILLEGAL FUNCTION (a) 
4 130001 -WORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION (76) 


88 07161 
89 
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ATTENTION (ATA) TABLE 


MN -SBTTL ATTENTION (ATA) TABLE 
3 071616 001 ATNTBL : yg 1. 
4 071617 002 BYTE 2. 
5 071620 004 -BYTE 4. 
' 6 071621 010 BYTE 8. 
7 071622 020 -BYTE 16. 
8 071623 040 -BYTE 32. 
9 071624 100 -BYTE 64. 
1 071 200 -BYTE 128. 


SEQ 0276 
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1 
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1 
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1 


54 770 
55 071772 
56 774 
57 071776 
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-SBTTL DATA PATTERN TABLE 


RGDTPT: 
MIXED: 


MUN -AWNW-oO 
oO UINIW Ue 8 tt 
N 


wae 
eee 


m—-OO- WNW 
“ee © & @ 


BA 


Of un— 
—SOo0—vUN 
MONO CO* «= « 


SEQ 0277 
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DATA PATTERN TABL 


72000 0 
59 072002 010000 
b7s008 000 
002000 


100 
101 
102 
103 
104 0 
105 0 
106 0 
107 0 
108 0 
109 0 
110 0 
111 0 
112 0 
113 0 
114 0 


177767 


NANANAANN 
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-WORD 8192 
- WORD 0 
-WORD 2048 
-WORD 1024 
«WORD 512. 
-WORD 256. 
-WORD 128. 
«WORD 64. 
-WORD 32. 
-WORD 16. 
-WORD 8. 
-WORD 4, 
-WORD 2. 
-WORD 1, 
-WORD 0. 
-WORD 65535 
WORD 65534 
WORD 65532 
-WORD 65528 
-WORD 65520 
-WORD 65504. 
-WORD 6547 
-WORD 65408 
-WORD 65280 
-WORD 65024 
-WORD 64512 
-WORD 63488 
-WORD 61440. 
-WORD 57344. 
«WORD 491 
-WORD 32768 
-WORD 0. 
-WORD 0, 
-WORD 32 
-WORD 49152 
-WORD 57344 
-WORD 61440 
- WORD 88 
-WORD 645 
-WORD 65024 
-WORD 65280. 
-WORD 65408 
WORD 65472 
-WORD 655 
-WORD 65520 
-WORD 65528 
-WORD 65532 
WORD 65534 
-WORD 65535. 
EARLY: .WORD 43690 
WORD 43690./2 
-WORD 43690 
WORD 65535 
WORD 65534 
WORD 65533 
WORD 65531 
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SEQ 0279 
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1 
2 
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5 
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8 
9 
0 
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2 
3 
4 
5 
6 
7 
8 
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20 
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MN 
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SSSSSSS55999990008888855999999908 


ee ae et a a 
3888 
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Beecee 

om 
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Sescsscsce 


— 


Soe Se ood ad 
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MRYNN 
oo 
== 


gacaaaaaaaaeaaEaaeae 


aed es a tt Ss 
eed ob at dt td td SS ey 


ses 8s 8 8 8 8&8 & & & &8 & 


ed 
s 


MS 
EMS141,EMS76,0 

EMS145,EMS72,EMS76,0 
47,€MS53,EMS76,0 
EMS76,0 
106,MS53,EMS76,0 

EMS53,EMS76.0 

Ems64,0 
EMS15.EMS63,0 
E 


Joxo 


;EMS30.EMS67 
MS53,EMS67.EMS11 
EMS47.EMS53.EMS67.EMS11 
EMS5O.EMS53 7 9 
EMS145 ENS143- ones EMS 
1,€MS72,EMS67,-EMS115,EMS50,EMS70,0 
EMS167,EMS75,EMS67,0 
EMS56,EMS67,EMS115.EMS150,EMS152,EMS70,0 
EMS71.EMS56,EMS67 EMS115 —MS150,EMS152.EMS72,0 
£MS140,EMS67,EMS115,EMS47,EMS70.0 


EMS150,EMS152,EMS70,EMS115,EMS56,EMS73,EMS67,0 
EMS52,EMS205,EMS214,EMS206,EMS115,EMS51,EMS72,0 
EMS165.EMS103, EMS72.EMS 124.0 

EMS165,EMS103,EMS72.EMS171.0 


1 


Mur 


0 
-EMS140 
2EMS141 
7 
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ERROR MESSAGE T SEQ 0281 


Sm 


58 073174 100424 077454 103476 EMT70: .WORD &MS46,EMS20.EMS163.0 
59 073204 101256 101450 103476 EMT71: .WORD EMS71.EMS101,EMS163,0 
60 073214 100453 101271 103476 EMT72: .WORD &MS47.EMS72,EMS163,EMS115,EMS140,EMS141,0 
61 073232 100453 101271 103476 EMT73: WORD &MS47.EMS72.EMS163,.EMS115.EMS141.EMS72,0 
62 073250 100652 100567 103476 EMT74: .WORD &MS56.EMS53,EMS163,0 
073260 101256 100652 103476 EMT75: .WORD &MS71.EMS56.EMS163,EMS115,EMS150,EMS152,EMS72,0 
64 073300 100502 100567 103476 EMT76: .WORD &MS50.EMSS ENS 165 
65 073310 103074 103111 100567 EMT77: <:WORD &MS142,EMS143,EMS5$,EMS163,0 
66 073322 101335 103046 103476 EMT100: .WORD &MS75,EMS141,EMS163,EMS115.EMS47,EMS70,0 
67 073340 101335 103232 103476 EMT101: .WORD E&MS75.EMS150.EMS163,EMS115.EMS56,EMS73,0 
68 073356 103644 101301 103476 EMT102: .WORD &MS167,EMS73,EMS163,0 
69 073366 103215 103250 101316 EMT103: .WORD &MS147.EMS151,EMS74.EMS163,0 
073400 100531 101316 103476 EMT104: .WORD &MS51,EMS74 EAS 163 ,EMS115, MS50,EMS70,0 
71 073416 103603 101422 103476 EMT105:°.WORD &MS165,EMS100,EMS163,0 
073426 103603 101374 103476 EMT106: .WORD &MS165.EMS77,EMS163,0 
73 073436 103137 103147 100567 EMT107: .WORD &MS144.EMS145,EMS53,EMS163,EMS115,EMS143,EMS70,0 
74 073456 101631 101671 102034 EMT110: .WORD &MS110.EMS112.EMS116,EMS111,0 
75 073470 101755 076777 EMT111: .WORD &MS113.EMS4,0 
76 073476 101755 076734 EMT112: .WORD &MS113.EMS3,0 
77 073504 101631 102031 102034 EMT113: .WORD &MS110.EMS115,EMS116,EMS117,EMS114,0 
073520 101755 102106 EMT114: .WORD &MS113.EMS120,0 
79 073526 102127 102567 102613 EMT115: .WORD &MS121.EMS132.EMS133,0 
073536 102172 102567 102613 EMT116: .WORD EMS 12@ EMS] 32 -EMS133.0 
81 073546 102227 102567 102613 EMT117: .WORD &MS123.EMS132.EMS133,0 
82 073556 102272 102567 102613 EMT120: .WORD &MS124,EMS132.EMS133, 
83 073566 102324 102567 102613 EMT121: .WORD &MS125.EMS132.EMS133,0 
84 073576 102367 102567 102613 EMT122: .WORD &MS126.EMS132.EMS133_0 
102770 102567 102613 .WORD  EMS137.EMS132.EMS133.0 
86 073616 102471 102567 102613 EMT124: .WORD &MS130.EMS132.EMS133_0 
102527 102567 102613 25: .WORD €&MS131.EMS132.EMS133,0 
073636 102127 102567 EMT126: .WORD &MS121,EMS132.EMS134.EMS123,0 
89 073650 102172 102567 102636 EMT127: .WORD &MS122.EMS132.EMS134.EMS123,0 
102227 102567 102636 ;WORD EMS123.EMS132.EMS134.EMS123,0 
91 073674 102272 102567 102636 EMT131: .WORD &MS124.EMS132,EMS134.EMS123,0 
102324 102567 102636 EMT132: .WORD &MS125.EMS132.EMS134.EMS123,0 
93 073720 102367 102567 102636 EMT133: .WORD MSI EMS 1 32 -EMS134.EMS123.0 
2770 102567 102636 -WORD £MS137.EMS132.EMS134.EMS123.0 
2471 102567 102636 EMT135: .WORD EMS 130. EMS] 32 .EMS134 .EMS123.0 
96 073756 102527 102567 102 -WORD €MS131.EMS132.EMS134.EMS123.0 
97 073770 102127 102567 102700 EMT137: .WORD &MS121.EMS132.EMS135.0 
102227 102567 102 EMT140: .WORD &MS123.EMS132.EMS135.0 
99 074010 102127 102567 102743 EMT141: .WORD &MS121.EMS132.EMS136.0 
00 2770 102567 102743 EMT142: .WORD &MS137.EMS132.EMS136.0 
101 074030 102272 102567 102743 EMT143: .WORD &MS124.EMS1 -EMS136.0 
102 102324 102567 1027463 EMT144: .WORD &MS125.EMS132.EMS1 36.0 
103 074050 102367 102567 102743 EMT145: .WORD &MS126.EMS132.EMS136_0 
104 0 102527 102567 102743 EMT146: .WORD &MS131.EMS132.EMS136.0 
105 074070 103720 102567 102743 7: .WORD £MS171,EMS132.EMS136.0 
106 0 102471 102567 102743 EMT150: .WORD &MS130.EMS132.EMS136.0 
107 074110 103025 102031 10 EMT151: .WORD ews 140. ENS11 *EMS141.EMS70,0 
108 0 03074 20 103111 EMT152: .WORD £MS142.EMS115.EMS143,EMS72.0 
109 0 103137 103147 103176 EMT153: .WORD &MS144.EMS145.EMS146,EMS115,EMS143,EMS72,0 
110 074152 103137 103147 077454 EMT154: .WORD &MS144.EMS145.EMS20.£MS115.EMS143-EMS70,0 
111 074170 103232 103274 103342 EMT155: .WORD &MS150.EMS152.EMS154,EMS153,0 
112 0 103215 103250 103342 EMT156: .WORD €MS147.EMS151.EMS154_.EMS155.0 
113 074214 103215 103250 103376 EMT157: :WORD &MS147.EMS151.EMS156_.EMS157.0 
114 0 103446 103376 103431 EMT160: :WORD &MS161.EMS156.EMS160,0 
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115 074236 077613 077651 103376 EMT161: .WORD &MS25,EMS27, EMS156, EMS160,0 
116 074250 077630 077651 103376 EMT 16¢: ;WORD EMS26.EMS27.EMS156,EMS160,0 

117 074262 100453 103476 103025 EMT163: .WORD EMG? EMS16$~ Pasiebeo 

118 074272 100453 077454 000000 EMT164: .WORD &MS47.EMS20,0 

119 074 100652 077454 000000 EMT165: :WORD &MS56.EMS20.0 

120 074 100424 077454 000000 EMT166: .WORD EMS46 EMS20,0 

121 074314 104772 077454 000000 EMT167: .WORD &MS224,EMS20.0 

122 074322 103644 103342 103617 EMT170: .WORD EMS167.EMS154,EMS166,0 

123 074332 103644 103342 103414 EMT171: .WORD &MS167.EMS154.EMS157.0 

124 074342 103644 2 103356 EMT172: :WORD &MS167.EMS154.EMS155.0 

125 074352 103720 102567 102613 EMT173: .WORD &MS171.EMS132.EMS133,0 

126 074 103720 102567 102636 EMT174: .WORD EMS171 .EMS1 32. EMS134,EMS123,0 
127 074374 101755 73 000000 EMT175: .WORD 113.EMS177.0 

128 074402 104115 104132 000000 EMT176: .WORD &MS200.EMS201.0 

129 074410 104230 6 077662 EMT177: .WORD &MS203.EMS141.EMS30,EMS202,0 
130 074422 104230 100531 077662 EMT200: :WORD &MS203.EMS51.EMS30.EMS202.0 

131 074434 104230 104243 077662 EMT201: .WORD &MS203.EMS204, EMS 36, EMS 205.0 

132 07 104230 100502 077662 EMT202: .WORD &MS203.EMS50,EMS30.EMS202 925° 

133 074460 104230 103111 077662 EMT203: -WORD EMS203.EMS143,EMS30,EMS202,0 
134 074472 103232 101316 104200 EMT204: .WORD Enss60 Emeigs ens omits. EMS152,EMS72,0 
135 074510 100502 101525 101271 EMT205: .WORD &MS50.EMS 6 

136 074520 101534 101301 104200 EMT206: _WORD EMS104, EM EMS202,0 

137 074530 101335 103046 102031 EMT207: _WORD Ems ys ite “Ems 15, EMS140.0 
138 074542 101335 103232 000000 EMT210: _WORD ee MS1 

139 074550 100531 101271 102031 EMT211: .WORD EMS51.EMS72,EMS115.EMS50,EMS70.0 
140 074564 103074 100567 102031 EMT212: WORD ENST43, EMS53,EMS115,EMS143,EMS?2,0 
141 07 100502 101525 100567 EMT213: _WORD EnS90, “EMS 

142 074610 100557 104271 103617 EMT214: _WORD EMSS2 MS205,EMS166, EMS206, EMS115,EMS51,EMS72,0 
143 074630 100557 102064 100652 EMT215: .WORD EMSs5. Ems 17. EMS56,EMS163,0 

144 074642 100652 077662 101063 EMT216: .WORD &MS56.EMS30,EMS64,0 

145 074652 100424 077662 101063 EMT217: .WORD &MS46.EMS30.EMS64_0 

146 074662 077672 077662 101063 EMT220: WORD £&MS31.EMS30.EMS64_0 

147 074672 100453 077662 101063 EMT221: WORD 547.EMS30.E 

148 074702 100557 102064 101374 EMT222: :WORD &MS52.EMS117,EMS77,0 

149 074712 100557 102064 101035 EMT223: -WORD &MS52.EMS117.EMS63.0 

150 074722 000000 EMT224: .WORD 

151 074724 000000 EMT225: .WORD 

152 074726 000000 EMT226: .WORD 

153 074730 000000 EMT227: .WORD 

154 074732 000000 MT230: .WORD 

155 074734 000000 EMT231: .WORD 

156 074736 000000 EMT23 -WORD 

157 074740 000000 EMT23. » WORD 

158 074742 000000 MT234: .WORD 

159 074744 000000 EMT235: .WORD 

160 074746 000000 1236: WORD 

161 074750 000000 EMT237: .WORD 

162 074752 000000 EMT240: WORD 

163 074754 000000 EMT241: . WORD 

164 074756 000000 EMT242: .WORD 

165 074760 000000 EMT243: .WORD 

166 074762 000000 EMT244: .WORD 

167 074764 000000 EMT245: : WORD 

168 074766 103644 102567 104330 EMT246: “WORD EMS167., EMS132. EMS207,0 

169 074776 103644 102567 104355 EMT247: _WORD EMS 16 S132. MS210.EMS125 .0 
170 075010 103644 104366 104355 EMT250: “WORD melee" meoTT cE MS210.EMS207.EMS206,0 
171 075024 104404 104427 000000 EMT251: “WORD EMS 12, Ems513. ‘6 
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CZRMOAO R05/3/2 F F CTL TST 3 
ERROR MESSAGE T SEQ 0283 
172 075032 103603 104404 000000 EMT252: .WORD EMS165 EMS212,0 
173 075040 103215 103250 103376 EMT©53: .WORD 7,EMS151.EMS156,EMS210,EMS26,EMS27,0 | 
174 075056 104230 101450 077 EMT254: .WORD eS -EMS101 “EMS MS30,0 
175 075066 104230 103644 077 EMT255: .WORD ENS30.0 °0 
176 075076 1042380 101422 077462 EMT256: .WORD 
177 075106 077246 100424 077662 EMT257: .WORD Emeis "Ehetace PASSE MS102,0 
178 075120 100557 102064 100652 EMT260: .WORD EMSS “EMSIT) Eo casas ENS 102,0 
179 075132 100557 104271 104574 EMT261 .WORD &MS52,EMS205.EMS220,EMS206,EMS115,EMS51,EMS72,0 
180 075152 101534 101301 104200 EMT 6e: WORD 1 ENS /3 EMS 202,0 
181 075162 100502 100567 101476 EMT263: .WORD EMS50, ERS mS53-EMS 
182 075172 100652 100567 101476 EMT264: .WORD EMSS cE Ems 15 ;EMS115,EMS150,EMS152,EMS70,0 | 
183 075212 101256 100652 101476 EMT265: .WORD 71 Emsee. MS102.EMS115.EMS150.EMS152.EMS72.0 
184 075232 103074 103111 100567 EMT266: .WORD 142,€MS143,EMS53,EMS1 
185 075244 100502 103176 102031 EMT267: .WORD 30. EMS146 —ms115 EMS52. EMS -EMS117, EMS46,0 
186 075262 100453 100567 101476 EMT270: .WORD EMS -EMS93-EMS10¢. EMS 
187 075276 100453 100567 101476 EMT271: .WORD &MS47.EMS53 EMS 102, EMS S115 EMSTat -EMS72, 0 
188 075314 101335 103046 101476 EMT272: .WORD 3. 14 2,€MS115,EMS47.EMS73,0 
189 075332 100531 101316 101476 EMT273: .WORD “Ens 74 4. ER 02 —mS115,€MS50 ’ehe70- 6 | 
190 075350 101035 100567 100727 EMT274: .WORD 25-EMS Ems? +15, EMSa) »EMS146,0 
191 075366 102034 100567 100202 EMT275: .WORD EMS 16 ER EnS35.08 35 EMS 41,EMS57.0 
192 075400 100453 100567 100727 EMT276: .WORD oeay ene 57.€MS115.EMS140,0 
193 075414 100453 100567 100727 EMT277: .WORD Euseo ENses, °EMS115.EMS141.EMS72,0 
194 075432 100652 100567 100727 EMT300: .WORD &MS56,EMS53,.EMS57.EMS115,EMS150,EMS152,EMS70,0 
195 075452 101256 100652 100567 EMT301: .WORD &MS71.EMS56.EMS53 EMS9/ -EMS115,EMS150,EMS152.EMS72,0 
196 075474 103603 101422 101525 EMT302: .WORD &MS165,EMS100,EMS103,EMS57,0 
197 075506 103603 101450 101525 EMT303: .WORD &MS165.EMS101 .EMS103,EMS57.0 | 
198 075520 103603 101374 101525 EMT304: .WORD &MS165 EnS/? ,£MS103,EMS57,0 
199 075532 100424 077 101063 EMT305: .WORD EMS EMSG4, 0 
200 075544 100502 100567 100727 EMT306: .WORD €&MS5O. EMSS EMS57.0 | 
201 075554 100502 103176 102031 EMT307: .WORD —&MS5O mSi46 cE" esi13. EMS52. EMS117,EMS46,EMS57,0 
202 075574 103074 103111 100567 EMT310: WORD Emsi4oe ERS1e$ ENS MS57.0 
203 075606 101534 101525 100567 EMT311: .WORD EMS 03. eee. Ens57-0 
075620 101 101525 100567 EMT312: .WORD &MS105.EMS103,EMS53.E | 
205 075632 103137 103147 101525 EMT313: .WORD £MS144.EMS145_.EMS 108° Ess? EMS115,EMS143,EMS70,0 
206 075652 100230 101525 100567 EMT314: .WORD &MS42,EMS103. Eness EMG 
207 075664 077672 101525 100567 EMT315: .WORD &MS31.E Ems 103. ZEMSD 3. ag § 
208 075676 101256 077672 101525 EMT316: .WORD €&MS71.EMS31 EMS103, EMSS? ‘0 
075710 100257 101525 100727 EMT317: .WORD EMS43.EMS ms108 CXS 
210 075720 100361 101525 100727 EMT320: .WORD &MS45.E ms 103. emses a | 
211 075730 100. 101525 100727 EMT321: .WORD &MS44 “Ems 103. EMS57.0 
212 075740 101612 077454 000000 EMT322: _WORD 106, EMS20. 
213 075746 76 101525 100727 EMT323: .WORD &MS36.EMS103.EMS57,0 
14 075756 773 100076 101525 EMT 324: “WORD oes. ERS 3 EMST0S. EMSS? 0 
215 075770 103753 100076 101525 EMT325: .WORD &MS172.EMS36.EMS103,EMS 
216 076002 104010 077342 EMT326: .WORD &MS13.EMS174 sEMS13, ens 5 6Rs3, .EMS175,0 
217 076020 103215 103250 101316 EMT327: .WORD &MS147.E EMS! 1st° 
218 076032 101147 100567 104016 EMT330: _WORD enseg.£ 3 74 EMS | 
219 076042 077750 101525 100567 EMT331: .WORD &MS33.EMS10%,EMS53.EMS175,0 
20 076054 100153 101525 100567 EMT 33: -WORD  EMS40.EMS103,EMS53,EMS57, | 
221 076066 100531 101316 100727 EMT333: .WORD E&MS51.EMS74-£MS57,EMS115.EMS50,EMS70,0 
322 076104 101335 103046 100727 EMT334: .WORD EMS75. EMS 141 ,EMS57,EMS115.EMS47,EMS7$,0 
223 076122 101335 103232 103274 EMT335: _WORD EMS73« EMS! R830, EMS? EMSS7. “EMS 118 EMS56-EMS73.0 
224 076142 100755 100770 101017 EMT336: .WORD &MS60 EMSG2 
225 076152 102034 1 077776 EMT337: .WORD ERST 6, past EMS 34,0 
226 076162 077776 100567 100601 EMT340: _WORD 34,€MS53, Ehes: EMS111.0 
227 076174 100623 077776 000000 EMT341: “WORD ote “EMS32 ‘0 
228 076202 100557 102064 100652 EMT342: :WORD E&MS52.EMS117,EMS56.EMS57.0 
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| 
| 


E SEQ 0284 
229 076214 100557 102064 100361 EMT343: .WORD E—MS52,EMS117,EMS45,EMS57,0 

230 076226 100557 102064 100306 EMT344: .WORD EMS5S2.EMS117.EMS44.EMS57.0 

231 076240 100557 102064 104614 EMT345: .WORD E—MS52.EMS117.EMS221 0 

33¢ 076250 101612 077454 102031 EMT346: .WORD &MS106,EMS20.EMS115.EMS223,EMS72,0 

233 07 100557 104271 104 MT347: .WORD EMS52,EMS205.EMS222.EMS206,0 

234 076276 101335 103232 101476 EMT350: .WORD &MS75.EMS150.EMS102.EMS115.EMS56,EMS73,0 
235 076314 103644 101301 101476 EMT351: .WORD &MS167,EMS73,EMS102.0 

236 076324 104470 EMT352: .WORD €&MS215. 

237 076330 104541 104230 104511 EMT353: .WORD &MS217.EMS203,EMS216,0 

238 076340 104614 077454 000000 EMT354: :WORD &MS221.EMS20,0 
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ERROR MESSAGE TABLE 


SEQ 0285 
1 076346 105044 105650 105725 EHT1: .WORD €H1,STSHi,STSH2,STSH4,0 | 
¢ 076560 105650 105725 106052 EHT2: .WORD STSH1,STSH2,STSH4,0 | 
4 076370 105063 000000 EHT110: .WORD €H110,0 
2 076576 105072 000000 EHT111: .WORD €H111,0 | 
7 076400 105111 000000 EHT114: .WORD £H114,0 | 
8 076404 105140 105650 105725 EHT223: .WORD £H223,STSH1,STSH2,STSH4,0 

105166 105650 105725 EHT256: .WORD EH256,STSH1,STSH2,STSH4,0 


076430 

076442 105301 105650 5725 EHT337: .WORD £H337,STSH1,STSH2,STSH4,0 
076454 105436 105650 5725 EHT344: .WORD &H344,STSH1,STSH2,STSH4,0 
0 


76466 105574 000000 EHT353: .WORD £H353,0 


10 
10 

105242 105650 Hh edhe EHT336: .WORD €H336,STSH1,STSH2,STSH4,0 
10 


ad ae cd cd eed ed ed 
AYUFSWN—O”O 
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1 076472 
076502 


4 076510 
; 076512 


106110 
106204 


106204 
106222 


106204 
106204 
106204 
106204 
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SEQ 0286 


106222 EDTI: .WORD €D1,STSD1,STSD2,STSD4 
106254 EDT2: WORD STSb1,STSb2,STSb4 


EDT110: .WORD D110 
EDT111: .WORD €D111 


EDT114: .WORD €ED114 
106222 EDT223: .WORD £D223,STSD1,STSD2,STSD4 


106222 EDT336: .WORD £D336,STSD1,STSD2,STSD4 | 
106222 EDT337: .WORD £D337,STSD1.STSD2.STSD4 





106222 EDT344: .WORD £D337,STSD1,STSD2,STSD4,0 
EDT353: .WORD €D353 
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1 076562 
¢ 076572 


106267 
1 5 


106305 
106305 


D7 
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106305 
106305 


STSF ,STSF ,STSF 
TSF ,STSF 


EF114 


SEQ 0287 
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es 
St BOON) — 


sNtOoNN—OOoNe NaN 
SUNN NN WWAWARDO-AUGA aw 


=RSRSR 


ts 
QaeseoNesessSe2e-Sy7re 


N 
ORMWO- WV" WROLWW 


R 


103 


ERROR MESSAGE STRINGS 


-ASCIZ @WRONG UNIT SELECTED (RMCS2, BITS 0-2) a 
~ASCIZ @DEVICE WENT 2 

~ASCIZ @UNAVAILABLE 'DVA’' (RMCS1, BIT 11) @ 
;ASCIZ @NONEXISTENT ‘NED’ (RMCS2. BIT 12) a 
“ASCIZ NOT COMPLETED, @ 

“ASCIZ @CONTROLLER NOT READY (RMCS1. BIT 7) a 
-ASCIZ @DRIVE NOT READY 'DRY’’ (RMDS. BIT 7) @ 
-ASCIZ @GO NOT RESET ‘‘GO’’ (RMCS1, BIT 0) @ 
-ASCIZ @INVALID @ 

-ASCIZ @FUNCTION CODE (RMCS1, BITS 1-5) a 
“ASCIZ @MASSBUS @ 

-ASCIZ @CONTROL 

-ASCIZ @BUS PARITY ERROR @ 

-ASCIZ. a MCPE'' (RMCS1, BIT 13) @ 

‘ASCIZ @TRANSFER ERROR (RMCS1, BIT 14) a 
-ASCIZ @SHOULD NOT BE SET @ 

“ASCIZ @WORD COUNT (RMWC) @ 

-ASCIZ @BUS_(RMBA) @ 

"ASCIZ @'LBT’’ (RMDS, BIT 10) @ 

-ASCIZ @''AOE’’ (RMERI, BIT 09) @ 

“ASCIZ @DISK (RMDA 

“ASCIZ @CYLINDER (RMDC) @ 

“ASCIZ @ADDRESS @ 

[ASCIZ @STATUS @ 

“ASCIZ. a WLE'’ (RMER1, BIT 11) @ 

-ASCIZ a’ UPE'’ (RMCS2. BIT 13) a 

“ASCIZ a’ WCF’* (RMER1. BIT 5) @ 

~ASCIZ @WRITE CHECK ERROR-'WCE'' (RMCS2, BIT 14) a 
-ASCIZ @' MDPE'’ (RMCS2, BIT 8) @ 

“ASCIZ a’ DCK'® (RMER1, BIT 15) a 

“ASCIZ @'ECH'' (RMER1. BIT 6) @ 

“ASCIZ @'DLT’’ (RMCS2. BIT 15) @ 

-ASCIZ a’ MXF'’ (RMCS 9) a 

“ASCIZ @'DTE"* (RMER 12) @ 


1, BIT 
-ASCIZ a HCRC'’ (RMERI, BIT 8) a 
-ASCIZ @HEADER COMPARE ERROR ‘HCE’’ (RMER1, BIT 7) a 
a’ OPI'* (RMER1, BIT 13) a 
a Sk > BIT 1 
a’ PIP’* (RMDS, BIT 13) 
@THE_RM 
@DETECTE 
@AT AN CTED @ 
@INCORRECT DATA DURING @ 
@INVALID COMMAND ERROR "‘IVC'* (RMER2, BIT 12) @ 
@DURING DATA TRANSFER @ 


I 
@DATA READ @ 
@DOES NOT he WITH @ 


ITE ERROR ‘ERR'* (RMDS, BIT 14) a 
@DATA PARITY ERROR ‘DPE*’ (RMER2, BIT 3) @ 


NNNIINNNIINNINININNINIINI INNING 


ASOOOOOAOAOAAAAAAAAOAAGAO 
Des bt ht et bee tem De fea bene bg ba tn bent Ds Pane Banat Bont beet Bs 


@DURING SEEK COMMAND @ 
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58 101244 
59 101256 
60 101271 
61 101301 
o¢ 101316 
63 101335 
64 101343 
65 101374 
66 101422 
67 101450 
68 101476 
69 101525 
70 101534 
71 101563 
72 101612 
73 101631 
74 101 
75 101671 
76 101733 
77 101755 
78 102005 
79 102031 
80 102034 
81 102064 
82 102106 
83 102127 
84 102172 
85 102227 
8 102272 
87 102324 
88 102367 
- 89 102432 
90 102471 
91 102527 
92 102567 
93 102613 
94 102636 
95 102700 
96 102743 
97 102770 
98 103025 
99 103046 
00 103074 
01 103111 
02 103137 
03 103147 
04 103176 
05 103215 
06 103232 
07 103250 
08 103274 
09 103320 
10 103342 
11 103356 
12 103376 
13 103414 
14 103431 
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a ad ae cd ad eed ed 
RERRIG= 
EUR 
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@DID NOT SET @ 

@DID_NOT RESET @ 

@aLOST @ 

K ACK COMMAND a 


a 


a’‘ILF’’ (RMER1, BIT 0) 
@DURING SEARCH COMMAND @ 


a 
1BC’* (RMER2, BIT 10) a 
a’ LSC** (RMER2, BIT 11) @ 
RRORS @ 


@BUS TIMEOUT (04 TRAP) @ 
@ADDRESS @ 
@WHEN tain. RH REGISTERS @ 


2835 


VIO SB N—Mmornr 
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ee ee ee ed ed ed ed ed eed eed ed ed 
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g 
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@NONEXISTENT DEVICE 
SBUS CONTROLLER @ 


a ai kak kk a a kk a td dt es 
MNORORUAR SNM NIN Wrhow 


Owe eS 


MN 
* 


@CONTROL STATUS REGISTER 1, RMCS1, 
@BUS ADDRESS REGISTER, RMBA, 
: iy SL 2, RMCS2, 


eo ®@ ® 
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O— BWW BNAWAL-U 
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VE Cc 
phy ripe RMDS a 


® 
nm 
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M—Onnyn- 3 a 


R 


@DRIVE FAULT 

a’ DVC'* (RMER2, BIT 7) @ 

a’ UNS'" (RMER1, BIT 14) a 
BE SET a 


RRv=WKVR 
MVANWUUID 
SUSR 


3 
RUSRISRSVS 
RRERARRVRUR=TE 


@OFFSET COMMAND @ 
@NOT RESET BY @ 
@RTC COMMAND @ 
@RIP COMMAND @ 


ss ke dd od ed od od = od od od oe = 
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ERROR MESSAGE STRINGS SEQ 0290 


5 103446 117 106 EMS161: .ASCIZ — (RMOF) @ 





z 


1 
116 103476 adh ; S 
117 103476 104 133 122 EMS163: .ASCIZ @DURING RECALIBRATE @ 
118 103522 111 123 040 EMS164: .ASCII @IS INTERMITTENT OR DRIVE DIDNT DROP ON @ 
119 103571 103 131 114 ~ASCIZ @CYLINDER @ 
120 103603 125 116 105 EMS165: .ASCIZ XPECTE 
121 103617 122 105 103 EMS166: .ASCIZ @RECALIBRATE 
122 103644 042 101 124 EMS167: .ASCIZ @' ‘ATA’ (RMDS, 
123 103671 127 110 105 EMS170: .ASCIZ @WHEN READING REGISTER @ 
124 103720 105 122 122 EMS171: .ASCIZ @ERROR REGISTER oe RMER2, 
125 103753 116 117 116 EMS172: .ASCIZ @NONRECOVERABLE @ 
126 103773 122 105 103 EMS173: .ASCIZ @RECOVERABLE @ 
127 104010 104 101 124 EMS174: .ASCIZ @DATA @ 
128 104016 104 125 122 EMS175: .ASCIZ @DURING TE C 
129 104044 042 117 120 EMS176: .ASCIZ ( . BIT 13) a 
130 104073 111 116 040 EMS177: .ASCIZ @IN WRITE PROTECT a 
131 pelts 103 101 116 EMS200: .ASCIZ aC T SET @ 
132 104132 104 111 107 EMS201: .ASCIZ @DIAGNOSTIC MODE ‘DMD’ (RMMR1, BIT 0) a 
133 104200 104 125 122 EMS202: .ASCIZ @DURING DIAGNOSTIC MODE @ 
134 104230 111 116 103 EMS203: .ASCIZ @INCORRECT @ 
135 104243 042 127 122 EMS204: .ASCIZ WRL'’ (RMDS, BIT 11) @ 
136 104271 105 130 105 EMS205: .ASCIZ ae aed ED @ 
137 104303 127 111 124 EMS206: .ASCIZ COMP ERROR S 
138 104330 042 107 117 EMS207: .ASCIZ @ eGo" (RMCS1, BIT O) 3 
139 104355 127 122 111 EMS210: .ASCIZ ITING @ 
140 104366 127 101 123. EMS211: .ASCIZ @WAS RESET BY @ 
141 104404 120 122 117 EMS212: .ASCIZ INTE a 
142 104427 127 101 123 EMS213: .ASCIZ @WAS NOT GENERATED @ 
143 104452 123 105 105 EMS214: .ASCIZ @SEEK C 
144 104470 120 122 117 EMS215: .ASCIZ TIMEOUT @ 
145 104511 104 125 122 EMS216: .ASCIZ @DURING LOOK AHEAD TEST a 
146 104541 114 117 117 EMS217: .ASCIZ @LOOK AHEAD REGISTER,RMLA, a 
147 104574 123 105 101 EMS220: .ASCIZ @SEARCH COMMAND 
148 104614 102 101 104 EMS221: .ASCIZ @BAD SECTOR ERROR ‘BSE*’ (RMER2, BIT 15) a 
149 104664 101 040 104 EMS222: .ASCIZ @A DATA TRANSFER COMMAND @ 
150 104715 110 105 101 EMS223: .ASCIZ @HEADER COMPARE INHIBIT 'HCI‘* (RMOF, BIT 10) @ 
151 104772 116 117 116 EMS224: .ASCIZ @NONEXISTENT MEMORY "NEM'’ (RMCS2, BIT 11) a 


Nonononononong nny @ @ a es 
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@EXPCTD RECEVDa 

@BUSADR 

@ RMCS2 = RMCS1@ 
SNGPRT DULPRT@ 


R DATAa 
@EXPCTD RECEVD RGSTR@<CRLF> 
@STATUS STATUS INDEX@ 


@GDADRS GDDATA BDADRS BDDATAa 
@RMCS2 STATUS FAILING DATA@<CRLF> 
a a<CRLF> 

@EXPCTD RETEVD BIT” ~~ ADRESSa 
@RMER1 STATUS HEADER FAILING@<CRLF> 
WORD BITa<CRLF> 

POS1TONA 


@EXPCTDRECEVD NUMBE 
@EXPCTD RECEVDa<CRLF> 
@<CRLF> RMLA = RMLA 


@ RMCS1_ RMCS2 = RMDS RMER1 RMER2Z@ 
@ _ RMAS@ 
° RMWC RMBA RMDA RMOF RMDC@ 


@ RMAR1 = =RMMR2-—sRMDT RMSNa@ 
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ERROR MESSAGE STRINGS 
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001142 
000000 
001176 


001176 
001142 


001140 


001142 
001142 


001344 
001340 


001370 
001374 
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SGDDAT , SBDDAT 0 
SBASE, 
STMPO,STMP1 0 


RMDTI,STMP1 ,STMP2,0 
SGDDAT , SBDDAT ,STMPO, 0 


SGDADR , SGDDAT , SBDADR , SBDDAT , 0 


SGDDAT , SBDDAT , STMPO,STMP1 0 
SGDDAT , SBDDAT ,RMOFO,0 


RMCS1I1, Nt -RMDSI ,RMER1I ,RME 
RMWCI, 1 ,RMOF 


RMEC2T, 
RMDAI, RMD I woth make 
RMR I 
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ioereae FOR GENERAL DATA TRANSFERRS 


BUFONE: .BLKW 258. 
BUFTWO: .BLKW 258. 


STORAGE FOR MANUFACTURES 16 BIT MODE BAD ates FILE 
0 HEADER WORDS 





MEGFIL: .WORD ; 
“BLKW 236. 1256. WORDS OF DAT 
WORD : TERMINATOR IF PILE IS FULL 
;STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 
USRFIL: .WORD 0 :2 HEADER WORDS 
“BLKW 236. 1256. WORDS OF DATA 
“WORD : TERMINATOR IF FILE IS FULL 
. =BUF FER 
HELP: 
eASCII <CRLF> 
"ASCII. <CRLF> 
“ASCII @LIST OF TESTS@<CRLF> 
SASCI] @------------=a<CRLF> 
“ASCII aT CONTROLLER ACCESS TESTa<CRLF> 
“ASCII at2 DEVICE AVAILABLE TEST@<CRLF> 
“ASCII. aT3 DRIVE TYPE TEST@<CRLF> 
“ASCII at4 WRITE, READ ZEROS@<CRLF> 
“ASCII. aTS WRITE, WRITE CHECK ZEROS@<CRLF> 
“ASCII até WRITE. WRITE CHECK ZEROS W/ WCE ERROR@<CRLF> 
“ASCII at7 WRITE, READ ONES@<CRL 
“ASCII @110 WRITE. WRITE CHECK ONE S@<CRLF 
-ASCII @711 WRITE. WRITE CHECK ONES W/ wee ERROR@<CRLF > 
eASCII @712 WRITE, WRITE CHECK MULTIPLE SECTORS@<CRLF> 
-ASCII @113 WRITE. READ W/ IMPLIED SEEK@<CRLF> 
-ASCII @714 WRITE. WRITE CHECK W/ HEAD SWI TCHING@<CRLF> 
-ASCII @715 WRITE. WRITE CHECK W/ MID~TRANSFER SEEK@<CRLF> 
-ASCII @716 WRITE. READ W/ HCE ERROR@<CRLF> 
-ASCII @717 WRITE. READ W/ HCI@<CRLF> 
“ASCII @120 WRITE. READ W/ IVC ERROR@<CRLF> 
-ASCII @721 WRITE, READ W/ ABORT@<CRLF> 
ASCII @722 WRITE. READ EACH CURRENT LEVEL@<CRLF 
“ASCII @723 WRITE. WRITE CHE CK W/ CURRENT - LEVEL SWI TCHINGA<CRLF> 
-ASCII @724 WRITE. READ EARLY PEAK SHIFTa< 
“ASCII aT25 WRITE. READ MIXED PEAK SHIF TRCCREF> 
-ASCII @726 WRITE. READ EACH TRACKa<CRLF> 
ASCH a2 READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE@<CRLF> 
“ASCII SOPERATIONAL SWITCH SETTINGS@<CRLF> 
“ASCII wanna n anne = === 9< CRLF > 
“ASCII @SWITCH USE@<CRLF> 
“ASCII @------ -- CRLF> 
“ASCII @ 15 HALT ON ERROR@< RL F> 
“ASCII @ 14 LOOP ON TEST@<CRL 
“ASCII a 13 INHIBIT ERROR WYPEOUTS@<CRLF> 
“ASCII @ 12 a@<CRL 
“ASCII @ 11 INHIBIT ITERATIONS@<CRLF> 
“ASCII @ 10 BELL ON ERROR@<CRLF> 
“ASCI] a@ 9 LOOP ON ERROR@<CRLF> 


CZRMOAO RMOS/3/2 FCTNL TST 3 
ERROR MESSAGE STRINGS 
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040 .ASC 
040 .ASC 
040 .ASC 
040 .ASC 
940 ASC 
040 .ASC 
040 . 

040 .ASC 


BHeoowowwooaea2 
MIWA NCO 


: 


LOOP ON TEST IN SWR<7:0>a@<CRLF> 
TN128@<CRLF > 

TN64a<CRLF > 

TN32a<CRLF > 

™N16a@<CRLF> 

TN8@<CRLF > 

TN4@<CRLF> 

TN2@<CRLF> 


SEQ 0295 
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Ss SEQ 0296 
ABASE = 176700 ATNMSK= 000377 CHRCNT 040433 EDT1 076472 EMS100 101422 
ACDW1 = 000000 ATNTBL 071616 CKSWR = 104410 EDT110 076510 EMS101 101450 
ACDW2 = 000000 AUNIT = 000000 CLKADR 001516 EDT111 076512 EMS102 101476 
ACKSTS 054602 AUSWR_ = 000000 CLKVCT 001520 EDT114 076514 EMS103 101525 
ACPUOP= 000000 AVECTI= 120254 CLR = EDT2 076502 EMS104 101534 
ADDWO = 000000 AVECT2= 000000 CLRSTS 053722 EDT223 076516 EMS105 101563 
ADDW1 = 000000 Alé = CMNSTA 007612 EDT336 076526 EMS106 101612 
ADDW10= 000000 Al7 = 001000 C EDT337 0765 EMS11_ 077246 
ADDW11= 000000 BACK = 000001 CMPERR 051720 EDT344 076546 EMS110 101631 
ADDW12= 000000 BADSCT 041416 CNSLOO 070755 EDT353 076560 EMS111 101660 
ADDW13= 000000 BADTMO 005340 CNSLO1 071010 ED1 106110 EMS112 101671 
ADDW14= 000000 = 10 CNSLO2 071026 ED110 106116 EMS113 101755 
ADDW15= 000000 = 1 CNSLOS 071070 ED111 106122 EMS114 102005 
ADDW2 = 000000 8801 = 000002 CNSLO4 071110 ED114 106130 EMS115 102031 
ADDWS = 000000 BB02 = 000004 CNSLOS 071144 ED223 106140 EMS116 102034 
ADDW4 = 000000 8B03 = 000010 CNSLO6 071156 ED336 106150 EMS117 102064 
ADDWS = 000000 BB04 = 000020 CNSLO7 071207 ED337 106162 EMS12_ 077257 
ADDW6 = 000000 BB05 = 000040 CNSLO8 071352 ED353 106174 EMS120 102106 
ADDW7 = 000000 BB06 = 000100 CNSLO9 071353 EECC = 20 EMS121 102127 
ADDWS = 000000 8807 = 000200 CNTCLR 053604 EFT1 076562 MS122 102172 
ADDW9 = 000000 8808 = 000400 C 070342 EFT110 076600 EMS123 102227 
ADEVCT= 000000 BB09 = 001000 CONT = EFT111 076602 EMS124 102272 
ADEVM = 000000 BITO = 000001 CR = 15 EFT114 076604 MS125 102324 
ADR = 000001 BITOO = 000001 CRLF = 000200 EFT2 076572 EMS126 102367 
AENV. = 000000 BITO1 = 000002 CTLFG 001326 EFT223 076606 EMS127 102432 
AENVM = 000000 BITO2 = 000004 CYLMSK= 001777 EFT336 076616 EMS13_ 077320 
AFATAL= 000000 BITO3 = 000010 DBCK = 100000 EFT337 076626 EMS130 102471 
ALL 070331 BITO4 = 000020 = 040000 FT344 076636 EMS131 102527 
AMADR1= 000000 BITOS = 000040 = 002000 EFT353 076646 EMS132 102567 
AMADR2= 000000 BITO6 = 000100 DCK = 100000 110 06266 EMS133 102613 
AMADR3= 000000 BITO7 = 000200 DDISP = 177570 EF117 106267 EMS1 
AMADR4= 000000 BITO8 = 00 = 020000 EF114 7 EMS135 
AMAMS1= 000000 BITO9 = 001000 DEVSEL 052132 336 106274 EMS1 102743 
AMAMS2= 000000 IT1_ = 000002 1156 EF 337 EMS137 102 
AMAMS3= 000000 BIT10 = 002000 DISPRE 000174 T1 76346 E 077331 
AMAMS4= 000000 IT11 = 000 DL S EHT110 076370 EMS140 103025 
AMSGAD= 000000 BIT12 = 010000 = 000001 EHT111 076374 EMS141 1 6 
AMSGLG= 000000 BIT13 = 020000 DPE = 000010 EHT114 076400 EMS142 103074 
AMSGTY= 000000 1T14 = 040000 DPEHI = 040000 HT2 076360 EMS145 103111 
AMTYP1= 000000 BIT15 = 100000 DPELO = 020000 EHT223 076404 EMS144 103137 
AMTYP2= 000000 I = 000004 = 00 EHT256 076416 EMS145 103147 
AMTYP3= 000000 BITS = 000010 DRQ = 000 EHT336 076430 EMS146 103176 
YP4= 000000 BIT4 = 000020 DRVCLR= 000010 EHT337 076442 EMS147 103215 
ADE = 001000 BITS = 000040 DRVSTS 057140 EHT344 076454 EMS15 077342 
ASS = 000000 BIT6 = 000100 DRY = 700298 EHT353 0764 EMS150 103232 
= 100000 BIT? = 000200 DS = 17757 1 105044 EMS151 103250 
APRIOR= 000000 IT8 = 000400 DTASTS 057742 EH110 105063 EMS152 103274 
APTCSU= 000040 = 001000 TE = 010000 EH111 105072 EMS153 1033520 
APTENV= 000001 040430 DTO = 010000 EH114 8105111 EMS154 103342 
APTSIZ= 000200 BOTFLG 040432 DULPRT= 024024 EH223 = 105140 EMS155 103356 
APTSPO= 000100 C= 14 DVA = 004000 EH256 105166 EMS156 103576 
S = = 100000 DvC = 000200 EH336 I2gne EMS157 103414 
001514 BUFFER 106314 EARLY 072142 EH337 = 105301 EMS16 077364 
ASNDC 001512 EBL = 020000 EH344 105436 EMS160 103431 
= BUFTWO 107320 ECH = 000100 EH353 =: 105574 EMS161 103446 
ATA _ = 100000 = ECI_ = 004000 EMS1 076650 ade 103476 
ATESTN= 000000 CH = 002 ECRC = 001000 EMS10 077204 EMS165 103476 
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AM 


SEQ 0297 | 


164 103522 EMS44 100306 EMT125 073626 EMT207 074530 EMT271 075276 
EMS165 103603 EMS45 = 100361 EMT126 073636 EMT21 072420 EMT272 075314 A 
166 103617 EMS46 = 100424 EMT127 073650 EMT210 074542 EMT273 075332 Al 
EMS167 103644 EMS47 = 100453 EMT13 072342 pall 1 074550 EMT274 075350 Al 
17 077414 077042 EMT130 073662 EMT21 4564 EMT275 A 
EMS170 103671 EMS5O 100502 EMT131 073674 EMT21 74600 EMT276 075400 Al 
EMS171 103720 EMSS1 100531 EMT1 3 73706 EMT214 074610 MT277 075414 A 
EMS172 103753 EMSS2 100557 EMT1 073720 EMT215 074630 EMT Al 
173 103773 3 100567 EMT1 073732 MT216 074642 EMT30 =©072510 A 
EMS174 104010 EMSS4 100601 EMT135 073744 EMT217 074652 MT 075432 Al 
175 104016 EMSSS 100623 EMT136 073756 MT22. 072430 EMT301 075452 A 
EMS176 104 EMS56 100652 EMT137 073770 EMT220 07466 EMT302 075474 | Al 
177 104073 EMS57 100727 072354 MT221 074672 EMT305 Al 
076717 EMS6 077072 EMT140 4000 EMT222 074702 075520 A 
EMS20 54 EMS60 100755 EMT141 074010 EMT225 074712 EMT305 075532 Al 
EMS200 104115 EMS61 100770 EMT142 074020 EMT224 074722 EMT306 075544 | Al 
EMS201 104132 EMS62. 101017 EMT1435 074030 EMT225 074724 EMT307 075554 Al 
202 104 EMS63 101035 EMT144 074040 EMT226 074726 MT 072520 
EMS203 1042 EMS64 101063 EMT145 074050 MT227 074730 EMT310 075574 Al 
EMS204 104243 EMS65 101101 EMT146 060 EMT23 072440 EMT311 Al 
EMS205 104271 E 101147 EMT147 074070 EMT230 074732 EMT312 Al 
EMS206 104303 EMS67 = 101217 MT15 72362 EMT231 074734 M1313 075632 | Al 
EMS207 104330 7 077137 EMT150 0 EMT232 0747 EMT314 075652 Al 
EMS21_ 077477 EMS70 = 101244 EMT151 074110 EMT235 074740 EMT315 Al 
EMS210 104355 EMS71 101256 EMT152 074122 EMT234 074742 EM1316 075676 | Al 
EMS211 104366 EMS72 101271 EMT153 074134 EMT235 074744 M1317 075710 | Al 
EMS212 104404 EMS73 = 101301 EMT154 074152 EMT236 074746 EMT32 2 
EMS213 104427 EMS74 101316 EMT155 074170 EMT237 074750 EMT320 075720 
14 104452 EMS75 = 101335 MT156 074202 EMT24 072450 EMT321 
EMS215 104470 EMS76 = 101 EMT157 074214 EMT240 074752 MT322 075740 | 
EMS216 104511 101374 EMT16 072370 EMT241 074754 EMT323 075746 
EMS217 1 EMTVEC= EMT1 074226 EMT242 074756 EMT324 075756 
EMS22 77522 72254 EMT161 074236 MT24 60 EMT325 77 | 
104574 EMT10 072324 EMT162 074250 EMT244 074762 EMT326 
EMS221 3322 EMT165 074262 EMT245 074764 EMT327 076020 
EMS222 EMT101 340 7164 074272 EMT246 074766 EMT35 072540 
EMS223 104715 EMT102 073356 EMT165 074300 EMT247 -074776 
24 EMT103 073366 T7166 074306 EMT25 072460 EMT331 076042 
077536 04 0 EMT167 074314 EMT250 075010 EMT332 076054 
EMS24 EMT105 073416 MT17_ 072400 EMT251 075024 EMT 33. 
EMS25 077613 EMT 073426 T170 074322 EMT252 075052 34 04 
EMT107 07. EMT171 074332 EMT25 504 EMT335 076122 
EMS27 077651 072330 EMT172 342 EMT254 075056 36 076142 | 
EMSS 76734 EMT110 07345 EMT173 074352 EMT255 EMI337 076152 
EMT111 EMT174 362 EMT256 075076 072550 | 
EMS31 077672 EMT112 073476 EMT175 074374 EMT257 075106 EMT340 076162 | 
32. «(0 EMT113 073504 EMT176 074402 EMT26 =. 072470 EMT341 076174 
EMS33 077750 EMT114 073520 EMT177 074410 T260 EMT 34 
077776 EMT115 073526 T2 260 EMT261 075132 EMT345 076214 
EMS35 7 EMT116 0735356 EMT20 072410 EMT262 075152 076226 
36 00076 EMT117 073546 T200 on 54 EMT? 075 EMT345 076240 
EMS37 100125 eis 072334 EMT201 0744 T264 07517 EMT346 076250 ; 
EMT120 073556 EMT202 074446 EMT265 07521 EMT347 07 
100153 EMT121 66 203 074460 T266 075232 EMT35 072560 
1 EMT122 073576 04 074472 EMT267 075244 EMT350 
EMS42 2 EMT123 EMT205 074510 27 EMT351 076314 ° 


100230 07. EMT 876300 
EMS43 100257 EMT124 073616 EMT206 974520 EMT270 075262 EMT352 076324 


8 8 
CZRMOAO_RMOS/3/2 FCTNL TST 3 MACRO VO03.01 11-APR-80 13:39:53 PAGE 51-4 
SYMBOL TABLE 


EMT353 076330 FNCMSK= 000077 IR = 000100 PHA = 000200 RMDAI 001342 
EMT354 076340 FO = 000002 IvC = 010000 PIP = 90008 RMDAO 001416 
EMT 0 Scop 1 = 000004 LBC §=— =: 002000 PIRQ = 177772 RMDB Ronees 
EMT37 F = 000010 L8T = 002000 PIRQVE= 000240 RMDBI 001356 
072274 F = 000920 LF = 000012 PLFS ea tse RMDBO 3 001432 
072610 F4 = g's 784 LODEV 071416 PRIERR 045226 RMDC_ = 000034 
EMTS41 072616 GENBUF 043344 L = 000004 PRO = 000000 RMDCI 001370 
EMTS 72626 GET Oaegee LSC = 004000 PRI = 000040 RMDCO 8 001444 
EMTS 072640 GE TBUF 1334 LST = 2 PR2 = 000100 RMDS = 000012 
EMT44 072650 GETINX 001522 LSTRK 001332 PRS = 000140 RMDSI 001346 
45 072660 GETSTS 044144 MCLK = 004000 PR4 = 000200 RMDSO 001422 
EMT466 §=60726 GO = MCPE = 020000 PRS = 000240 RMDT = 000026 
EMTS47 §=©072700 GTSWR = 104407 F_ = 000100 PR = 000300 RMDTI 001362 
EMTS 072302 HCE = 000 MDPE = 000400 PR? = 000340 RMDTO 001436 
EMTS 072 HCI_ = 002000 MEDENB 001510 PS = 177776 RMEC1 = 
EMTS 072716 HCRC = 000400 MFGFIL 110324 PSEL = 002000 RMECII 0014 
EMTS 072 HELP 106314 MI = 000004 PSW = 177776 RMECIO 001454 
EMTS 072746 HT = 000011 MIXED 071626 PUT 044500 wes = 
EMTS54 § © 0072764 IAE = 002000 MOC = 000400 PUTBUF 001410 RMEC2I 001402 
EMT5S 072774 IDXMSK= 000077 MOH = 020000 PUTINX 001551 RMEC20 001456 
EMTS6 =O IE = 000100 MOL = 010000 VEC= 0000 RMER1 = 
57 073024 ILF_ = 000001 MRD = 002000 QUES 070336 RMER1I 001350 
EMT6 072310 ILFO2 = 000002 MS = 040 RCLSTS 055376 RMER10 001424 
60 073034 ILF24 = 000024 MSC = sas 53 RD = 000070 RMER2 = 
EMT61 073052 ILF26 = 000026 MSDRVS rat 4 RDCHR = 104411 RMER2I 001376 
073072 ILF30 = 000030 MSE = RDLIN = 104412 RME 00145 
EMT63 073106 ILF32 = 000032 = RDOCT = 1044135 = 
EMT64 073110 ILF34 = 000034 MSGDRV 071410 RDY = 000200 RMHRI 001372 
65 073130 ILF36 = 000036 MSH 07034 READY 007764 RMHRO 001446 
EMT66 073150 ILF40 = 000040 MUR = CAL = 000006 = 
EMT67 073162 ILF42 = 000042 mwD = 000010 RESREG= 104415 RMLAI 001354 
EMT? «072316 LF44 = 000044 MWP = 10 RESVEC= 000010 001430 
EMT70 073174 ILF46 = 000046 MXF = 001000 xX = 010000 RMR] = 4 
71 «260 ILF54 = 000054 NDTMSK= 115760 = 040000 11 001 
EMT72 07321 ILF56 = 000056 NED = 010000 RGDTPT 071626 RMARIO 001434 
EMT75 073232 ILF64 = 000064 NEM = 004000 = 2= 
EMT74 073250 ILF66 = 000066 NOP. = 000000 RIP _= 000020 RMMR2I 001374 
EMT75 §= 073 ILF74 = 000074 NOTAVL 071453 RLEASE= 000012 RMMAR2O 001450 
76 8073 ILF76 = 000076 NOTPRS 071436 RMAS = 000016 RMOF = 000032 
EMT77 073310 ILR_ = 000002 NSA = 100000 RMASI 001352 RMOFI 001366 
ENRGDT 072254 ILRGSO= 000050 ote = 100000 RMASO 3 001426 RMOFO 001442 
EQUALS 070327 ILRG52= 000052 = 00 RMBA_ = 000004 RMR = 000004 
ERR _= 040000 ILRG54= 000054 OFPLIN Ronee RMBAE = 000050 RMSN = 000030 
ERRNWB 040426 ILRG5S6= 000056 OFFSET= C00014 RMBAEI 001404 RMSNI 001364 
ERROR = ILRG60= 000060 OM = 1 RMBAEO 001460 RMSNO 001440 
ERRTYP 037670 ILRG62= 000062 ONES 071666 RMBAI 001340 RMWC == 000002 
ERRVEC= 000004 ILRG64= 000064 ONLINE 071504 RMBAO 3 001414 RMWCI = 001336 
ERTYOO 040434 ILRG66= 000066 OPE = 020000 RMCS1 = 000000 RMWCO §8=— 001412 
ERTYO1 040442 ILRG70= 000070 OPI = 020000 RMCS1I 001334 RQA = 100000 
ERTYO2 040452 ILRG72= 000072 OR = RMCS10 001410 ROB = 040000 
ERTYOS ILRG74= 000074 PACACK= 000022 CS2 = 000010 RTC =.000016 
ERTYO4 040467 ILRG76= 000076 PAKACK= r4 RMCS2I 001344 R6 =%000006 
ESRC = 004000 IOTVEC= 000020 PAR = Ss 001420 =% 7 
FER = 0000 IPCKO = 000001 PAT = 000020 RMCS3$ = 000052 SADMSK= 000377 
Any = 000001 IPCK1 = 000002 PDA = 000400 RMCS3I 001406 SAVREG= 104414 
MT16 = 010000 IPCK2 = 000004 PGE = 002000 RMCS30 001462 SA1 = 000001 
FNCDTB 071516 IPCKS = 000010 PGM = 001000 A = 000006 SA16 = 000020 
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7k 


cone 
PESE8 


& 


8 
$ 


: 


SWR 
SWREG 
SwO 
SwOO 
Sw01 
Sw02 
SwO03 
SWO4 
SWO5 
SWO6 
Sw07 
Sw08 
SwO9 
Sw 
SW10 
SwW11 
SW12 
SW13 
SW14 
SwW15 
SwW2 


segoge 

sieeek: 

geggggeess 
UXNVOARVO 


g 
e 
soo 


(=) 
™ 


262 


LSSSSSSSSSSSsSVsssssss 


SSSSSSSEK 
SUAS 


adadad 
QuVmavirng 
WNW—NO 


SMTYP4 001267 
NT 065656 


e, 2 
gegegesasararesperesss 
BRBTSSaR REDE SR 


bed 
oe 


5 
838 





am 


> > > 


> > > > > > > 


= = 
SRSZESSSSRSS NOSE OS 


BS 


| 
Ww 


-—— & 
NOo~N 
-—-— 

o 
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STTYIN 067322 STYPEX 065340 SUNIT 001234 $VECT2 001274 $SGET4= 
STYPBN 064260 STYPOC 064604 SUNITM 001110 SXOFF = 000023 $$SWO8= 
STYPDS 064334 STYPON 064620 SUSWR 001246 $XON_ = 000021 SOF ILL 
STYPE 065006 STYPOS 064560 $VECT1 001272 SXTSTR 065360 $x = 
STYPEC 065220 

- ABS. 112340 


001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 55976 WORDS ( 219 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 69 PAGES 
CZRMOA.BIC,CZRMOA/C=CZRMOA.DOC ,CZRMOA, SYSMAC/M 


SEQ 0300 
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9-19 


10-41 
38-7 


9-19 


10-114 
38-7 


E 8 
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12-63 
12-G39 


3 
36-98* 


9-19 


10-152 
38-7 
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38-10 
4-487 


38-6 
38-114 
38-8 


38-5 


10-115* 


38-7 
38-5 


38-6 
38-6 


38-7 


38-7 
38-7 


38-12* 


38-6* 
38-8 


10-122* 


38-6* 
38-8* 


F 
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10-149 


38-12 


11-3 


38-7 


3 
36-77* 





12-815* 
12-H 





38-7 


38-7 


14-29 


5-0" 


38-7 38-7* 


SITEME 


Ln] 
z 
o 
cS 
a 
va) 







PE 


sere 
Sr = Ss 
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38-114 
38-10 


38-5 


38-12* 
38-12* 
38-12 


38-11% 
38-10 


38-12* 


38-12* 


38-7 


38-11* 


38-7 38-8 
38-6 38-6* 
12-289* 12-335* 
12=>17* 12=>85* 
12-L14* 12=-L60* 
9-25 11-27 
12-746 12-2896 
38-12* 
12-344 12-344 
12-555 12-5554 
12-;7: 12-=63 
12-FO7# 12-FO7#4 
12-M08 12 
38-4 38-4* 
-64 
13-20 13-20* 
38-7 38-8 
38-11* 


12-299 
12=M59* 


12-2 
12=C82 


13-20* 


38-8 
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38-8 


38-6* 

12-476* 
12-a51* 
12=N05* 


12-34 
12=F 07 


12-634 


38-8 


12-608* 
12-A57* 
12-007* 


12-63 
12-639 


38-8 


12=756* 
12=D45* 
12=P54* 


12-238 
12-J12 


12=803* 
12-E08* 
12=-Q11* 


12=901* 
12=F 78* 
38-6 


12-380 
12-K63 


12-555 
12-M08 


12-914 
12-8484 


12-238 
12-8484 
12-8964 
12-J12 
12-P04# 


SEQ 0304 


12=947* 
12-H00* 
38-6 


12-703 
12-N53 


12-2 


12-J124 


13-:27 | 
12-a96" 


| hots ol Www 0 08 OC) S 8 0) 0) ©) CS) ©) ©) © ©) ©) ©) 0) 0) Oo eS G2 6 6) 6) ee i a Ld St Ls 





SEQ 0305 


| 
| 
| 
| 


38-64 


SSCOPE 9-19 
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SSE TUP 


SSWREG 
SSWRMK 


STESTN 


4-782 
9- 


4-782 


4-782 


38-10 


4-782 


4-782 
9-19 


38-7 
4-782 


38-8 


12-A19* 


4-782 
9-19 


38-7 
4-782 


4-488 


12-J12* 
6 


38-8 


4-7824 
9-19 


38-7 
4-7824 


4-488 
12-380* 
12=K63* 
38-6 
38-8 
38-8* 
38-8 


12-524* 
12-B18* 
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4-7824 
9-19 


38-7 
4-7824 


4-488 


12-M08* 


4-7824 
9-19 


38-8 
4-7824 


4-488 
12-703* 
12-N53* 
38-6* 
38-8 


38-8* 
12=724* 





4-7824 
9-19 


38-8 
4-782# 


4-7824 
9-19 


38-8 
4-7824 


4-7824 
9-25 


38-8 
4-7824 


38-10 
38-10 
38-10 


SEQ 0306 


4-7824 
9- 


12-=63* 


9-19 
9-25 


38-6 
12=246* 


38-8* 


12-<00* | 
12-J81* 


10-59* | 
10-1188 | 
1-0 


38-10 38-10 38-10 38-10 38-10 38-10 38-10 38-10 38-10 38-10 38-104 38-104 38-104 eater 
SEQ 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
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38-108 38-104 
STRPAD 38-10 38-104 
STSTM 4-7894 
STSTNM 865 11-37* 
STTYIN 38-8 38-8 
TYPBN 38-24 38-10 
STYPDS 38-34 38-10 
STYPE 38-54 38-10 
STYPEC 38-5 38-5 
STYPEX 38-5 38-5 
STYPOC 38-44 38-10 
STYPON 38-4 38-44 
STYPOS 38-44 38-10 
SUNIT 5-04 11-42* 
SUNITM 4-7894 
SUSWR 5-04 
SVECT1 5-0" 10-69 
SVECT2 5-0" 
SXOFF 38-5 38-5 
$SXON 38-5 38-5 
SXTSTR 38-64 
-SASTA 38-12 38-12 
- $X 4-789 4-7894 
A16 4-72 
A117 4-727# 
ABASE 4- 5-0 
ACDW1 5-0 5-0 
CDW2 5-0 5-0 
ACKSTS 15-152 16-137 
ACPUOP 5-0 5-0 
ADDWO 5-0 5-0 
ADDW1 5-0 5-0 
ADDW10 5-0 
ADDW11 5-0 
ADDWi2 5-0 
ADDW13 5-0 
ADDW14 5-0 
ADDW15 5-0 
ADDW2 5-0 5-0 
DDw3 5-0 5-0 
DD 5-0 5-0 
DD 5-0 5-0 
DDWEé 5-0 5-0 
DDW7 5-0 5-0 
DDWE 5-0 
DDWS 5-0 
DEVCT 5-0 5-0 
DE VM 5-0 5-0 
DR 12-2 2-24 
12-2384 12-380 
12-:274 12-:27# 
12-C82 12-C824 
12-J124 12-K63 
AENV 5-0 5-0 
NVM 5-0 5-0 
FATAL 5-0 5-0 


5-0 


32-154 


12-24 


38-104 


38-6 
38-8 


38-12 
38-54 


24-49 


10-85 


12-34 


12-3804 
12-; 784 
12-F07 

12-K634 


L 8 
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38-104 38-104 38-104 38-104 38-104 
38-6 38-6 38-6 38-6 38-6* 
38-8 38-84 

38-8 

10-107* 

12-344 12-344 12-63 12-634 12-634 
12-555. 12-555 12-5554 12-703 12-7034 
2-; 784 -=63 ~=634 12-=634 12-2746 
12-FO7# 12-FQ7# 12-G39 12-G39# 12-G39K 
12-M08 12-M08# 12-M08# 12-N53  12-N53# 


38-104 


38-6* 


12-N534 


38-7 


12-914 
12-848 


SEQ 0308 

38-7 38-7 
12-914 12-238 12-2384 
12-8484 12-8484 12-:27 | 
“8% 12-a96# 12-3964. 
12-H57# 12-412 = 12=J 124! 
=P04H 12=P04# | 
| 





| | 
: | 
3 | 


10-121 39-64 


ALL 
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SEQ 0310 





25-360 26-117 26-121 40-77 40-78 40-81 40-82 40-85 
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; 
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3 
o 
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e339 
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2 
‘ 
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= 
i 


. oa 

a 
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oS 

a 





12-L97# 12-L99# 


12-L90# 12-L934 


8 9 


12-L694 12-L85# 12-L884 


12-L56# 12-169 


12-L524 12-L544 
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12-889 =12-a89F 12-89% 12-891 12-8914 12-8914 12-A06 12-A06# 12-A17 12=A17# 12-441 12-AG1# 12-A44m ro a ( 
SEQ 
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RIN AINRINCIN AINA CUCUCNCURUCUCNCURuCY 


Cel ceed eel soe cell sel cell soe cell cee eel eee eel eel cel el cel ee el eel ol oo od 


~ Peet tin rrr etspemer ore: epne ts 
5 FF Petter er FFF S85 85 
ra be ee eth eee ee el me el el el le el el el el el ed el el el ed ek ek ed ed ek ek eee 
= RRe 
SSeS SRL COTE SENR SNS SeIgS 
ARARARERAAARAUNMR AERO EES 
LAPSE EDEDAEAIUNUR RAR RERAERARR ARRAS 
bh ee cee ee el el el el el el oe el el el el el el el el el el ek ed ek ek ed ek ek ee eee 
EIRTST SHE MRASSRSOS SEONG SS SR ERO I 
RaSRORERESAAMUNMAAREAAaAaAaOREREREG 
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Se eth ee eee me ce ee el ee el el eel el ol el lel el el ed el el ek ed ed ek ee ee 
PE ERE eGR REC E RaTA Seite ct eek see | 
SLTAADARADARANUTR LASER ARASABARS DBRS ao | 4 
eueucucucucucucucucucucucucucucucucucuCcuCUCUCUCUCUCUCUCUCUCUuCUCUuCUCUCY wv wv vr 
Se me ce ee el oe el el el eel el ee el el el el el el el el el el el ed ek ed ek ek ed ek ee eee | 
= = = & | 
SEGCNOS SERRA SARS USER INS STOR NS coos 
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3 
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scar 
12-NO1# = 12-N14 
—-N44a 
“NID 
0454 
086 


dicododucuducucucucuds MONON 
Cl ol el od 


Cee eel, cual suelo coll coll Sool coe eel, eel eel aeeeik cet ceed 


12-P11# 12-P22 


N 
— 


- 
N 
- 


CROSS REFERENCE TABLE (CREF v0O1-05 ) 
12 
12 
13 
15-56 
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r 


RR Te Ye EO eo el 
BITO7 4-491 4=491% = 4-567 4-581 4-603 4-619 4-636 4-660 394-677 687 #729 72 sal ( 
SEQ 031 ( 


AMMA MMMMM MMM MM Mmennnn MN MenmMmnennnnnnn 









CZRMOAO RMOS/3/2 FCTNL TST 3 


CROSS REFERENCE TABLE (CREF v01-05 ) 





4-491 
4-491 


4-4 
4-4914 


4-4914 
4-498 


0-125 
9-6 


4-544 
4-543 

12-81 
4 


35-320 
35-426 


23-24 


ee eee 1 eee 
N 
i 
iat) 
Ww 
Ww 


10-50 
15-76 


10-136 
9-25 


10-144 
30-12¢ 


14-56 


9-25 


4-579 


14-1344 
14-1354 


12-J04 


39-264 


38-5 
9-39 


9 
MACRO VO3.01 11-APR-80 13:39:53 pace S-9 


12-D93 12-095 12-E55 12-E57 
12-394 12-445 12-569 12-623 


=i oad 
Nm 
i 
" 
N 
> 
a" 
Nm 
! 
Vv 
Nm 
— 
—adad 
IMM 
' 
vv 
Ww 
N 
= 
Nm 
g 


12-N48 
12-534 12-549* 12-669 12-698 
12-F97 = 12-172) 12-04 = 12175 


14-72 14-77* 14-88% 14-1364 


12-M03 = 12-N48 = 12-096 =: 118-174 


38-5 47-79 
9-50 9-56 9-57 11-24 


4-728 4-741 
4-727 4-740 
4-686 4-726 
4-673 4-685 
4-737 4-760 
4-736 4-759 
4-724 4-735 
4-723 4-734 


12-M03 = =12-N19 


37-18 


37-18 


38-6 
38-6 


4-739 
4-738 


15-111 

38-7 
4-758 
4-757 


12-771 


38-5 


38-7 


4-762 
4-761 


15-73 
18-33 


38-5 


SEG 0316 


38-7 
15-165 


38-6 
18-90 


39-3 


eS eee eee eee ee 





39-4 


39-6 


39-9 


39-10 


39-11 


39-12 


“' we 
39-12 39-13 


39-15 39-16 


39-17 


39-18 


39-20 


39-22 
SEQ 0317 


MMMMMMMMM MMMM MMMM MMMM Mn en Mn Mn em Mm nm nen on en en em er oe 





I 9 
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CROSS REFERENCE TABLE (CREF vO1-05 ) 


39-23 39-24 39-25 39-26 39-27 

51-21 a 5 51-23 51-24 51-25 

51-37 51-38 51-39 

51-49 51-50 51-51 51-52 51-53 
51-64 5 


12-P50 12-005 16-200 

DTE 4-S76# 4-590 35-2 35-297 35-300 
DULPRT 4-6534 12-71 12-76 12-81 12-85 
DVA 4-497# 9-89 12-51 20-43 21-37 
DVC 4-6874 29-1 31-115 33-92 33-130 
EARLY 12-K84 42-107# 
EBL 4-630# 
ECH 4-5824 4-590 16-225 18-25 25-452 

~6584 





39-28 
51-26 
51-40 
51-54 


25-489 


35-43 


35-413 


35-466 


35-416 


35-469 





34-30 
12-519 


SEQ 0318 


36-97 


aE SSSSOO—Oe—OtC#te 


7-282 


7-285 


7-288 


7-291 


7-294 


7-297 


J 
7-300 


9 
7-303 7-306 


7-309 


7-312 


7-315 


7-318 7-321 
SEQ 0319 





MMMM MMMMNMMNMN MN MN NNN NNN NN MN NN NN MN NNN nn Mn nn on en 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 





48-154 


45-24 
45-104 


K 9 
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SEQ 0320 





SEQ 0321 


t 
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43-91 
43-10 
43-10 


43-225 
43-149 


43-99 


43-90 

43-101 
43-169 
47-884 


43-91 


43-192 


43-201 


43-92 


m9 
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43-187 


43-21 
43-177 


43-55 
43-137 
43-193 


43-225 


43-93 


43-188 
43-204 


43-22 
47-114 


60 
43-139 
43-194 


43-228 


43-94 


43-189 
43-205 


43-23 


43-61 
43-140 
43-195 


43-229 


43-95 


43-234 
43-206 


43-24 


43-96 


43-235 
43-207 


43-25 


43-66 
43-179 
43-205 


43-231 


43-98 


47-684 
43-208 


43-26 


43-182 
43-221 


47-814 


43-126 


SEQ 0322 


| 
43-209 | 
43-27 
43-70 
43-183 


43-222 


47-854 





m 
nm 
o 
o 
ws 
“ 


EMS127 47-894 


WW ddd dd dd dd dd dd dd a a) 


—— ee”: Cr eo 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 





43-13 
4 
43-87 
4 


43-125 


5 at 

Dy 

at ot 
rRo@re Hwee me 

. WWN— 


47-1354 


43-54 


43-113 
43-54 


43-122 
47-1114 


47-44 
43-110 


43-131 
43-131 


47-1144 
43-61 
43-143 
43-72 
43-122 


43-126 


43-219 


43-118 


43-132 
43-132 


43-217 
43-111 


43-124 
43-173 


43-62 
47-1178 
43-172 
43-123 


47-1244 
47-1284 
43-119 


43-133 
43-133 


43-84 
43-98 


43-84 
43-93 


43-104 


47-1024 
47-1034 


47-1054 
43-111 

5-136" 
47-1104 
47-1124 


43-63 


43-196 
43-124 


43-120 


43-134 
43-174 


43-85 
43-99 


43-85 
43-94 


43-105 


47-100# 
43-133 


43-134 


43-182 


43-64 


43-197 
43-168 


43-121 


43-136 
43-175 


B 10 
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43-86 
43-100 


43-86 
43-95 
43-106 
43-192 
43-129 
43-140 


43-138 


43-183 


43-65 


43-198 
43-169 


43-212 


43-180 
43-176 


43-87 
43-101 


43-87 
43-% 
47-964 
47-984 
43-137 
43-184 


43-182 


43-194 


43-66 


47-1204 
43-170 


43-232 


47-1334 
43-237 


43-88 
43-102 


43-125 
43-126 


43-187 
43-202 


43-183 


43-195 


43-67 


43-175 


43-238 


47-1344 


43-89 43-90 43-91 
43-103 43-104 43-105 


47-934 
47-944 


43-188 43-193 43-222 
43-205 47-1014 


43-196 43-195 43-223 


43-223 47-1084 


43-68 43-69 43-70 


43-235 47-1220 


47-184 


SEQ 0324 


43-92 
43-106 


47-998 


43-23% | 


43-71 





EMS20§ 43-55 


43-142 


43-179 


43-233 


47-1364 


SEQ 0325 


on 
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43-142 
& 


43-55 


43-170 43-179 43-233 47-1374 
47-1384 


43-173 47-1398 


47-1414 

47-1484 

47-234 

43-173 47-244 
43-20 43-115 
47-5# 

43-21 43-22 

43-129 43-130 


64 
43-207 43-208 


43-226 43-227 


43-214 43-215 


43-120 43-145 
3-45 43-52 

47-414 

47-7# 

43-64 43-70 


43-70 43-130 


43-143 43-148 
43-39 43-40 
43-184 43-1 


43-116 


43-23 
43-131 


47-278 


47-304 
47-324 


43-177 
43-60 
43-132 


43-139 
43-149 


43-44 


43-187 
43-218 


43-63 


43-173 


43-24 
43-132 


43-185 
43-61 
43-135 


43-142 
43-178 


47-254 


43-25 
43-133 


43-199 
43-66 
43-139 


43-179 
43-179 


43-46 


43-191 
43-220 


43-119 


D 10 
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43-26 
43-144 


43-201 
4-1 1 7 
43-141 


43-189 
43-185 


43-47 


43-192 
43-226 


43-143 


43-27 
43-145 


47-404 


43-118 


43-181 


47-454 


43-144 


43-28 


43-146 


43-147 
43-185 
47-434 
43-228 


43-64 
43-194 


43-178 


43-29 


43-147 


43-186 


43-189 


43-229 


43-65 
43-195 


43-182 


43-30 
43-174 


43-187 
43-200 
43-230 


43-73 
43-200 


43-183 


43-31 
43-175 


43-188 
43-201 
43-231 


43-140 
43-202 


43-194 


SEQ 0326 . 
| 


43-32 
43-176 © 


43-192 
43-221 | 
43-233 | 


43-141 | 
43-203 — 


43-195 





EMSS7 


43-190 


43-191 


43-192 


43-193 


43-194 


43-195 


E 1 
43-196 


wears sane 
43-197 47-198} =43-199 43-200 §9=— 43-201 = 43-202 P 


4 
EQ 


3-203 
0327 


aga 


Wa paeey Sl Fe 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0328 











43-204 43-205 43-206 43-207 43-208 43-209 43-210 43-211 43-213) 43=2146 = 43-215 943-220 43-221 3 43-222 
43-223 ake 43-229 43-230 47-49# 


MS62 
EMS63 43-42 43-149 43-190 47-534 
EMS64 «= 43-8 43-14 43-41 43-144 43-145 43-146 = 45-147 43-199 47-544 


EMS67 943-43 43-44 43-45 43-46 43-47 43-48 43-49 43-50 43-51 43-52 43-54 47-S7# 
EMS70 943-48 43-50 43-52 43-54 43-66 43-70 43-73 43-107 43-110 9 43-139 §=— 43-182 43-189 = 43-194 39 43-205 


EMS71 43-51 43-59 43-63 43-183 43-195 43-208 47-594 

EMS72 43-36 43-48 43-51 43-55 43-56 43-57 43-60 43-61 43-61 43-63 43-108 43-109 43-134 43-135 
43-139 43-140 943-142 43-179 «43-183 43-187 9 43-193) 43-195 43-232 «= 47-604 
43-49 43-54 43-67 43-68 43-136 43-180 43-188 43-222 43-223 43-234 43-235 47-614 


EMS75 43-35 43-66 43-67 43-137 §=943-138 §=643-188 )3=— 43-222) 43-223 43-234 3=— 47-634 
43-38 43-39 43-40 47-644 
EMS77 . ty 43-72 43-148 43-198 47-654 





Hee eee eee 


ww w WwW viz 4iaie te Et et ad at ag a dg ag ag ey ag ee yt yy yy a ag gy eg eg eg ag ey ey a 






SEQ 0329 


| 


es 
val 
oa 
‘ 
Lal 
v 
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7-4 
MT216 7-433 43-1444 


See 


L wa —— JIdIdIJIIJIJIIJZEEREEEZEEES Z2EEEEE 





co 
» 
~» 
So 
S 
us 
a) 
















‘g ae 
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CROSS REFERENCE TABLE (CREF V01-05 ) 


EMT22 7-55 43-204 

EMT220 7-439 «9= 43-1464 
EMT221 97-442 «= 43-1478 
EMT222 7-445 = 43-1484 
EMT223 = 7-448 3843-1498 








K 10 


SEQ 0333 
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EMT301 7-595 43-1954 


EMT327 9=— 7-661 39 43-217 
EMT33 7-82 43-298 
EMT330 7-664 43-2184 


34 7-676 43-2224 
EMT335 7-679 43-2234 
EMT336 7-352 7-682 43-2244 
EMT337 9607-685 43-2254 
EMT 34 7-85 43- 
EMT340 ~688 43-2264 
EMT341 7-691 43-2274 
EMT342 7-694 «= 43- 
EMT3435 97-697 43-2294 
M1344 7-700 43-2 


43- 
T3553 7-721 4943-2374 
3 7-724 8 43- 
MT 36 7 43-324 


SEQ 0335 











CZRMOAO RMOS/3/2 FCTNL TST 3 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


26-113 


12-825 
35-394 
12-994 


25-102 
14-36 


12-830 
12-110 


25-136 
14-41 


12-C€18 
12-1104 


14-1334 

9-22* -5 
12-46* 12-57* 
21-59% 22-4 
28-20 28-20 
38-6* 38-6* 
12-C23 _- 12-D86 
12-1104 12-126 


N 10 
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-6 12-7% 12-8* 
12-58* 20-35 20-35 

-5 2-6* 22-7* 
28-21% 28-22* 28-51% 
12-D89 -12-E48 =: 112-E51 
12-1264 12-1264 12-129 


12-19% 12-20% 12-24% 
20-39% 20-40*  20-70* 
22-13% 22-20% 22-21% 


28-51* 30-12 30-12 


16-225 25-416 
12-1294 12-131 


35-348 


12-1314 


SEQ 0336 


12-25* 
20-70* 


23-9 
30-13 


35-365 


12-134 | 


12-1344 12-1344 12-138 


12-1384 12-1384 





12-151 


811 E 
12-151# 12=151# 12-168 


12-1684 12-168 12©171 12<171# 12-173 
SEQ 0337 
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¢ 11 
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RUIRIRIRUICI CURR CURI CUCU RI CU CUCU CUCU CUCU CUCU CUCU CUCU CUCU CUCU CUCUCUCUCUCUCUCUCURuCucuRucucuRuducucucucucucucucucy 
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eucucucucucucucucucucucucucucucucucucucucucucuCUuCUuCuCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCU 
sce ee meee ee el eee el el eh ee ee eel eh me ee el el el lh ee el el el ek ee ek ee ee nn 

RR ye 222 2 2 2222 & 222 2 2&2 2 S22222 82 
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MnCUCUCUCUCUCUCUCU CUCU CUCU CUCU CU CUCU CUCU CUCUCU CUCU CUCU CUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCU 
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mucucucucucuCUCUCUCUCUCUCUCUCUCU CUCU CUCU CUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCYU 

be eee ee ee eee eee eel el eh eh ee cee el el el ee ell el el el el el el el el le ee ee ee ee en 
wR zz Re 4 RRB RRR 

ROAR GS AAAS Baerga gS Rea NeYS oT AR oA IMaAc eases a NAT 
TPO OT FRO PPP PL DDDARA ye enV VVY I TT AAAASC CORSE Ce DOAAw 
RNINCUOIRICINIRQUIRNICURNIRKUIRNI RICCI NI CI CUI RI CUIRUI CUCU CUCUCU CU CUCU CU CUCU CUCU CUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCYU 
see ee eel el el el ee ee ee el ee el el el el eh el el el el de ee kk ek ee ee en ee ee 

2 2 222 & aS BE ye R 
SrRK oe ISABSO MAS au SRA SOmeaS ASST REMAINS Rte se A Aas say 
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SPRRER SANTS NOS RRO SRN SE ANAS CRGSA RAMPS INIT ge ase SMT 
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evicucucucucucucucucuCUCUCUCUCUCUCUCUCUCUCUCUCUCUCU CUCU CUCUCUCUCU CUCU CUCU CUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCU 
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Re & bg b 9 & Rw = 
SORPRA ENTS OS CARTERS SASS NURSE MAST eA Sse S SMA 
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eucucucucucucucucucucucucucucuCUCUCU CUCU CUCU CUCU CUCU CUCU CUCU CU CUCU CU CUCU CUCU CUCU CUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCY 
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i ee eee ee ae a ee ee el ee ee cl eel ee el el el el el el el el el ee ek ek ek ek oe ed ee ee 
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12-E33 12-334 12-E33# 12-E36 12=E36# 12-£38 12-638" 12-641 12-641 12-641 12-645 12-645 12-645 12=£64 
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GNS 


CZRMOAQ RMOS/3/2 FCTNL TST 3 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


4-7654 


12-809 1 
257414 25-429 935-348 35-378 
4-590 16-225 25-386 35-348 


51-184 
~62 38-5 38-5 
25-283 6-89 26-105 6-132 
0-78 40-81 40-85 
20-51 20-54 21-45 21-48 
4-7634 
25-155 25-157 32-51 32-111 
40-70 40-71 40-72 40-73 


32-51 32-97 32-101 33-232 


9-19* 9-19* 





32-115 
40-74 


33-236 


33-24 
40-75 


33-239 


art 
MACRO VO3.01 11-APR-80 13:39:53 pace S-22 


9-57 11=2 
38-10 38-10 
38-10 38-10 
12-397 12-446 
12-:;47 12-;96 


24-107 24-123 
12=D89 = 12=E48 
40-77 


35-391 35-394 


33-24 33-78 
33-45 33-48 
40-76 40-79 


35-128 35-131 


33-81 


35-128 
40-80 


35-134 


13-20 
38-10 


35-145 
40-83 


37-18 
38-10 


38-10 
38-10 
12-K80 
15-126 


25-384 
40-86 


40-59 


40-58 
40-87 


SEQ 0342 


40-67 
40-88 


IPCK3 


4-7648 


Ha 


SEQ 0343 
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CROSS REFERENCE TABLE (CREF v01-05 ) 


IR 4-7434 
Ivc 4-684" 
35-115 
0-72 
LBC 4 
LBT 4-5644 
LF 4-4914# 
LODEV 76 
4-6414 
LSC 4-6854 
LST 4-6424 
LSTRK 6-0# 
MCLK 4-6154 
MCPE 4-7254 
MDF 4-6204 
4-7414 
MEDENB 6-0# 
MFGFIL 16-61 
I 4-62 
MIXED 12 
iC 4-6184 
MOH 4-649#4 
MOL 4-562# 
33-158 
4-61 


24-107 
35-438 
15-125* 
16-274* 


42-44 


29-146 
35-88 





12-G23 
40-58 
40-75 
35-255 
26-93 
38-5 
35-269 
12-754 
24-120 
35-441 


16-40 
16-323 


29-156 
35-252 


12-763 
24-123 
16-284* 
51-74 


29-157 
35-505 


35-66 
24-76 


34-29 
12-<00 


32-51 


40-68 


25-198 


12-J23 
35-27 


29-162 
35-506 


28-31 


35-453 
12-=82 


12-099 
35-30 


29-167 
35-528 


35-456 
12-a05 


32-73 
40-62 
40-76 


ae Pkg 111, 
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16-58 


29-195 
35-533 


12-D05 


33-24 
40-63 
40-77 


16-364 


ae" or 
36-35 


12-J32 


33-61 
40-64 
40-78 


16-385 


32-40 
36-36 


4 
40-79 


17-50 


33-68 
36-40 


42-214 


33-155 
40-66 


40-80 


33-102 
40-69 
40-83 


26-62 


33-145 
36-45 


35-83 
40-67 
40-81 


33-171 
40-70 


29-53 


33-146 


35-86 
40-68 
40-82 


SEQ 0344 


35-178 


33-153 


[a YF 2D5D55275955> 33333333 3. 33x*xXN 


SEQ 0345 


TS 


4-74.20 
















CROSS REFERENCE 


4-517# 


CZRMOAO RMOS/3/2 FCTNL TST % 


TABLE (CREF VO1-05 ) 


16-119 
4-517 
24-135 


34-29 


12-G81 
35-511 


15-126 
24-139 


16-153 


24-151 


12=H36 
36-35 


29-30 


12-H39 
36-72 


12-868 
10-134 


24-89 


33-24 


15-178 
36-77 


12-41 
12-514 


38-11* 


12-E22 
38-8 


31-31 


| K 11 
MACRO VO3.01 11-APR=80 13:39:53 PAGE S-24 


33-29 


16-150 


12-F 96 


38-104 


33-34 


29-156 


2 
16-63 
38-11% 


12-H18 


35-41 


29-177 


22-7 
12-795 


38-11* 


12-174 


35-46 


29-182 


12-L74 





33-145 


12-N20 


33-216 


12-068 


33-221 


12-P77 


12-P86 


SEQ 0346 


12-P87 





aon 


Meee eo ee we eo eww eee eee el hl hl hlc hlc hl hl lt lh Ant MA he 


RGDTPT 


42-34 


L 11 


SEQ 0347 


on 


mma 





FEE EE 
62"e 
aa 


RMCS1 


CZRMOAO _RMOS/3/2 FCTNL TST 3 
CROSS REFERENCE 


12-156* 


12-120 
1 


12-047* 
9-86 


12-523 
25-455 





12-163 


15-126* 
11-49* 
12-987 
26-28 


M11 
MACRO V03.01 11-APR~80 13:39:53 PAGE S-25 
TABLE (CREF VO1-05 ) 


12-F97* 
12-021* 


12-123 


15-181* 
11-50* 


12-991 
31-51 


12-716* 
12-G46* 
16-256* 


19-20 







SEQ 0348 





12-267 12-310 12-354 12-408 12-451 12-497 12-584 12-630 
- 12=:56 12-;08 12-:52 12-<08 12-<71 12==32 12== 
12-A78 = 12-873) 12=€72) Ss 12-021 Ss «12-066 12-28 «=: 12-97): 12=F 45 
12-40 12-J88 12-K35 12-K92 12-135 12-180 12=<M37 12 | 
-028 16-68 | 
| 
49-14 
12-394* 12-445% 12-569" 12-623 12-669" 12-717* 12-771* 12-862*) 
12==74% 12=>21% 12-2757" 12-804" 12-A12* 12-A71* 12-866" 12-61) 
12=G47* 12-H70* 12=-124% 12-172% 12-J25* 12-J79% 12-K77" 12-129 
12-067* 12=-P17* 12-P58*% 16-61% 16-254 16-257" 17-21 8-31 
12-165 12-210 12-270 12-312 12-356 12-411 12-453 12-499 
- 12-924 12-970 12=:59 12=:10 12-:54 12-<11 12-<73 
12-872 12-A38 12-A80 12-875 12-C74 12-024 12-068 12-30 
12-132 = 12-181) 3S 12-J43) 12-590) 12=K37—s«112=K9S)— ss‘ 12=L37 =: 12=L. 82 | 
12-P35 12=-P78 12-P8B8 12-038 12-049 15-127 15-182 16-69 | 
24-91 = 24-102, 24-106 §=— 24-108 )3=— 24-120 24-122 24-124 = 25-51 
35-27 5-29 5-31 9-13 
12=349% 12-397% 12-446" 12-492" 12-572% 12-625% 12-670* 12-720+ 
12=:85% 12=;03% 12:47" 12=:96% 12-<44% 12-<66* 12-=06* 12-=26* 
12=759% 12-a02* 12-821* 12-65% 12-A15* 12-A73* 12-868 12-C62* 
12-F19% 12-F37x 12-F96% 12-G50* 12-G63* 12-H18* 12-H73* 12-125 
12-L74* 12-M25* 12-M75* 12-N20" 12-N71* 12-023* 12-068* 12-P 
16-87* 16-119% 16-153" 16-182" 16-305 17-26 25-28 26-48 
12-15" 12-16 12-44 20-41 21-35 28-27% 28-29 30-16« | 
12-993 24-47 = 24-72 24-74 = 24-75 25-99 25-170 25-271 | 
35-50 35-63 35-65 35-67 35-438 35-440 35-442 35-492 | 
| 
| 
12-351 12-407 12-448 3= 12-494 12-583. 12-627. 12-672: 12-731 | 
12-;05 12-349 12=<07 12-<68 12-=29 12-=93 12-557 12-717 | 
12-C69 12-D20 12-063 12-E25. -12=E94 «-12=F41.s«12=G01 = s-«12=G65 | 
V2-K32. 0 12-K91—12-L 3212-177 12-M36 © 12-M77—12=N22_—: 12=NB2 
| 
12-861* 12=:40* 12-;91" 12-=71% 12==72% 12== 12-254" 12-255 | 
12-H69* = 12-J23* 12-J24% 12-K76" 12-M21* 12-N66* 12-098" 12-099 | 
16-300 16-398* 17-24 26-60 26-61 29-53 29-56 29-60 | 


\ 


L ww a 


SEQ 0349 


N 11 


6-0" 


AastZEnnnnnwn 


el el el al al al aol el eens J 


a 


| 
| | 
| | 


RMOS/3/2 FCTNL TST 3 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


sees 


RMDC 





49-16 
12-F 32 
31-79 
12-F 32* 


12-F 40 
34-69 
12-F 38* 


12-C30 
16-220 
29-208 


12-F91 
49-17 
12-F91* 


8 12 
MACRO VO03.01 17-APR-80 13:39:53 PAGE S-26 


12-265 12-308 12-353 12-406 12-449 12-496 12-582 
12-967 3=12=:54 = 126; 12-351 12-<06 12-<69 12==31 
is-Aré 12-872 12-€71 = 12=D19 15-0 12-E27 12-E96 
12-J38 = 12-J86-—12-K340—12-K90-— 12-133) 12"L 12-35 
12-027 16-65 

12-567" 12-715* 12-860* 12=:39% 12=;90" 12=;92 12-<43* 
12-F14* 12=G45* 12-H68* 12-J06* 12-J07 12-J22* 12-k75* 
26-59 9 35-174 

12 12-H38 =612-H40) «=—-15-122 15-178 §=16-116 ~=—: 116-150 
25-196 §=25-223 925-358 §3=— 26-972 29- 29-146 -33 
29-1 29-196 29-206 210 29-212 9331-124 2-23 
33-144 33-153 = 353-157 3=— 333-159 = 333-169 «= 333-173 35-174 
33-220 33-222 34-28 35-88 35- 35-119 35-252 
35-517 = =35-528 §=— 35-532 4935-534 935-544 935-548 35-550 
36-62 36-72 -76 36-78 


12-831 =12-CO2 12-CO7 12-C18 12-C24 12-086 12-D88 


~83 ~85 35-87 sz7l2 35-131 35-133 35-135 
35-279 35-282 35-286 35-288 35-297 = 35-301 
35-365 5-367 35-369 35-378 35-380 35-382 5-391 
35-481 35-483 5-530 42 49-1 
12-€35 = 12-D92, 12-D93) = 12-E54. «—-:12-E55) =: 12-F63 = -:12-F 68 
24-137 25-82 “200 25-256 25-432 -27 
31-114 33-31 33-92 - 33-101 33-103 33-116 
33-266 34-103 35-43 35-111 35-114 35-116 35-203 
35-256 35-266 35-268 35-270 35-284 ~466 35-468 
36-96 36-98 36-108 36-110 36-112 49-13 


12-600 
12-F 98* 


12-674 


12==05* 
12-N65* 


SEQ 0350 


12-=25* 
12-P15* 


SEQ 0351 
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Wie AG 
33-119 33-218 © 35-173 35-176 35-193 35-204 35-206» 35-207 35-209 35-221 «35-513 36-74 36-89 





36-108 
SEQ 0353 


F 12. 
CZRMOAO RMOS/3/2 FCTNL TST 3 MACRO VO3.91 11-APR-80 13:39:53 PAGE S-28 
CROSS REFERENCE TABLE (CREF V01-05 ) SEQ 0354 






36-111 
SNGPRT 4-6524 12-69 12-74 12-79 12-84 
STACK 4-4914# 9-19 1 


a 12-34 12-63 12-91 12-238 12-380 12-555 12-703 12-848 12=:27 12=;78  12==63 
‘ir 12-896 §=12-(82 12=FO7,) =: 12=G39)12-HS57— 12-412 12=K63) = 12-M08 =: 12=N53—s« 12=P 04 


STANDA 10-34 

START 4-784 9-148 11-34 12-29 37-19 
STCDRV 36-274 

STKLMT _4-491# 

S 37- 38-6 


TOP 
STSD1 = 45=1 45-2 45-8 45-10 45-11 45-12 49-134 
STSD2  45=1 45-2 45-8 45-10 45-11 45-12 49-144 


STSD4 = 45-1 45-2 45-8 45-10 45-11 45-12 oat Nag 


STSF 46-1 46-1 46-1 46-2 46-2 46-2 46-8 46-8 46-10 46-10 46-10 46-11 46-11 
46-11 46-12 46-12 46-12 50-74 


STSH1 44-1 44-2 44-8 44-9 44-11 44-12 44-13 48-214 
STSH2 44-1 44-2 44-8 44-9 44-11 44-12 44-13 48-234 


— 44-1 44-2 44-8 44-9 44-11 44-12 44-13 48-264 


SwW13 4-491# 14-17 16-246 


Swe 4-4914 
Sw3 4-4914 
SwW4 4-4914 
Sw5 4-4914 
4-4914 
SwW7 4-491# 
SwW8 4-4914 
SwW9 4-4914 
5-0# 


9-19 9-19 9-19* 9-19* 9-19* 9-25 11-27 
38-7 38-7 38-7 38-8 38-8 


-17 16-246 38-6 38-6 38-6 38-6 
38-6 38-7 11 
nace 4-784" 9-19 9-25 11-27 38-8 38-8 38-8 


14 
38-8* 38- 38-11* 





4-648" 


TAP 





SEQ 0355 


H 12 
GE S-29 


MACRO VO03.01 11-APR~80 13:39:53 PA 


CROSS REFERENCE TABLE (CREF vO1-05 ) 


” b 
ee 


ZRMOAO RMOS/3/2 FCTNL TST 3 


SEQ 0356 


9-19* 
24-107 


16-191 
9-19 





26-12 


25-106 25-108 


24-123 


4-7248 24-90 


4-4914 
4-4914# 
4-4914 


12-J124 38-6 


12-FO7# 38-6 
12-G39# 38-6 
12-H57# 38-6 
12-K634 38-6 





SEQ 0357 


lt ey eT ay Te 
CZRMOAO _RMOS/3/2 FCTNL TST 3 MACRO VO3.01 11-APR-80 13:39:53 PAGE S-30 





CROSS REFERENCE TABLE (CREF v01-05 ) SEQ 0358 
TYPOS 9-42 9-53 9-99 10-70 10-91 14-23 14-27 14-32 14-34 38-104 
uO 4-749# 
U1 4-7498 
U2 4-7498 
UBUSQS ya 39-144 
UNS 4-574# 12-G58 12-H13 31-70 32-51 32-55 32-59 33-232 33-264 33-269 35-279 35-282 35-287 
UNTMSK 4=753# 24-4 24-50 
4-73 25-270 
-~69 12 17-29 
USRFIL 16-254 16-257 16-267* 16-275* 16-326 51-124 
- 15-122 §=616-116 3925-1963 29-91 29-156 = 29-157 = 29-206 )§=— 29-211 = 332-23 32-26 33-106 33-145 33-146 
33-169 Sap Lg rk +4 35-90 35-119 35-505 35-506 35-544 35-549 36-35 36-36 36-56 36-61 
wCD 4-524# 12-349 812-492 12-817) 12-963) 12-;47 = 12-715 12-865 = 12-K30 =: 112-047 
WCE 4-73 12-516 12-522 12-987 12-992 25-169 40-77 40-78 
WCEHI 4-7604 
WCELO 4-7614 
rif tn2oee 4-590 25-240 35-479 35-482 
WD 4~5284 12-158 12-305 12-446 = 12-625) 12-773) 12-917) 12=:85 = 12=;03 )—-12=<66)—-12=>24 «= 12=>55 12-802: 12-21 
12-A73,  12-D60)—-12-F19—-12-F37 = 12-G50) = 12-G63) 12-125) 12-J80 )3= 12-L30) 09 12-M75 =: 112-023 
WH 4-529# 12-108 12-255 12-397 12-572 12-720 12-865 12-:44 12-;96 12-=76 12-759 12-A15  12=C62 12-67 
12-D01_ 12-E87—12-E9212-H73— 12-28 = 12-K80)=—- 12-425 12-N71 Ss 12-P20 35-342 
WLE 4-S77# = 4-590 = 25-221 9 25-225 25-238 §=— 25-253 = 25-268 )§=— 35-279) 35-311 9 35-315 §=— 35-323 40-81 40-82 


XXDP 6-04 9-30» 9-33* 9-34 9-36* 9-41 9-52 9-77 9-79 
ZEROS) = 12-112 12-259 «12-401 12=:48 = 12=>22) 12-765) = 12-A19.S-12-H77—ss«*12=P24 0 42-384 





SEG 0359 
12-746 
38-104 





K 12 
M-1 





GE 
380 





5-0 


5-0 


) 


MACRO V03.01 11-APR-80 13:39:53 PA 








CROSS REFERENCE TABLE (CREF v01-05 


CZRMOAO_RMOS/3/2 FCTNL TST 3 


L 12 


~APR~80 13:39:53 PAGE M-2 


MACRO VO3.01 11 


CZRMOAO RMO5/3/2 FCTNL TST 3 


SEQ 0360 


CROSS REFERENCE TABLE (CREF V01-05 ) 


= MONoNoON mR AMNOMMMnMMNs WN OmmMawreu o 
NAMMoSSooRbe ae MOR RM R8S2A BORG MERON 2 
PPT YT TEE PS TPT PT TT TEST EPP TT EET EO TS 7 oF 
eucucucueucucucueucucueucy eucucucucucucucucucucucueucucucucucucucucucucucueucucuCY NW KR 
A ee pet ae ee ek ee oe Se se ee el el el ll el el el el eke ee ee et -_- = 
Renan am WAAONDORE om —PROvHRMew mm 
SoRNSeoS Essa «6 SRASRER SCE Ree eeaec oase sees s * ¥ & 
— eee . 
Tivo j 1 rievutitveriepre rite me Se 
CucucucucucucucucucuCuCUCU Cucucucucucucucucucucucucucucucucucucucucucueucucucucucu uw Oo 
ee eek ek oe ek oe oe oe oe Seth ee ee el el el el el ll lll el el el el ek ek ee ed ee et ee - - = 
N nun OR FOr UA O- D— OAMOR VR YMAONAMaADA co © O 
KTVT RSRonssarss KNBR SR SSSHY MODRO—NO = ~~ 
POET TESTEEP TT? TRY OPPS T PY PT PEP PEE PT OL TE ZOS ry 
en ee a Oe el el el el el el el ol el el ol el el eke ek eee ee ee - -—- = 
NAM OMMUA—oo WH SIUANIAOR WK— ADORALUAYOONeE SR  & 
Br OORARB ODOM RS SHG SISSMMOSSRMSRIARS SSROSaS Nae 
wo Tr eyTT ° ? yw'n be we? VIA TPP ee? 7M 9 ~N 
Titirperyd 1 titevetrvertiiptrrrres ry 7 ek 
eucucucucucucucucucucucucucu = cucucucucucucucucucuCUCUCUCUCcUCUCUCUCUCuCUCUCUCUCUCUCUCY nw 
Sl te ee ok ee oe ee oe a er Ce ee el el el el el el el el el el eke ek ek oe ek ee eee - - = 
ACAno-owonmesy AOR ORRANWOOK-K— MN oR WOvaman 00.7 00 
SSRSRRCRSHRSSyS LNG FBRVK VORA SOOGRS OTAGR AO LOsOK 
WEST SVI= 0909 QF OON OR: nV UAB EHSWu CT SY IE SOS 04.0. 
Tiiterry rretveretitrverirtreretvery ’ trite 
eucucucucucucucucucucucucucy = eucucucucucucucucucueucucucuCcuCUCUCUCUCUCUCUCUCUCUCUCUCY eucucucnd 
Se sol see ol el el ool el oe oe eee Ot el eel el el el eel eel oe el el el el el ek oe oe oe eek ek ee ee Saeed 
KRwz lame won-o MRAMONOKR ome nKRane-ooanosan—-om mmnmn 
SSFFOAGAIH LOSS RAMS DRS HAN ND POT ORN RAO ONO 
uo OV IEZS S PU FRO nV Ree POWM OEY Ie 3 Lar 20 
trivertve Titrd ritveorrtitverertitrtritery 7 Tete 
Set sel el oe oe ool oe oe oe ee oe eo Sl el ee el el el ell el el cel el el eek el eke ee ek ek eee ee ee Se aeieiceeiee 
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O—seonucon. w WNUAK-MMOATORM—ONKR RoR OMoDK mom 
SBSoSRN ne Roo DBOVUHORSAYTR OS VEVQUAST SNS B02 00 
WE OES ONDE SZORS WE MFNORO VT Ae Oho OLY UE ZO Meme 
tritvert i rpevetirttvietnttrtrirtritery 1 trey 
eucucucucucucucucucucCuCCUC eucucucucucucucucuCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCU eucucucucyu 
Dek ee el el el eel ol el eel el ek ek Oe el eel el eel el eel ll el ll el el el el ek eek eked ek ek eke ee eek ei 
ono mer MD TOOWDMNOR OR MODACO STA TOS NMR ste coruoory 
MORK SASS CORO mers BSRUISNLS SSSRARSSNAYSSS Maan 
PE PET CETETEC ET, CURTAP LET LY LATTER EL ETT ETEE TS vee 
Ck el eel cel el ool ool el el ek ek ee Ol el ce el el el el el eel el el el el el el ek el ek ek ek ee ee eee ee corer 
Rormenmm Mer ONOORARANK—MHNKRoKoansoo-OomoNaNn /. & 
MarR Surin OO QBOR™ FASBVG FOOBAMOMY See evers KARAM 
PPE TEETEEETTE PERO OPT ER EY STE PEEL PETE TER OTE EFETO 
eucucucucucucucucuCcuCuCuCUC eucucucucucucucucucUuCcUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCUCU cucueucucy 
Cel el el pel el el el el el el ek ek el Ce el el el el el el el nel el el el el el el el ee el el ek ek eke ee eee tl eel ot ol ol 
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